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mas educacionais. 
O JR PERMITE AINDA: 
O acesso a grandes sistemas de computação, a comuni- 
cação entre os departamentos de Empresa, efetuar pro- 
gramas específicos para cada Empresa. 

E, como se nãobastasse, ele é o Micro-Computador de 
menor preço do mercado. 

Com todas as qualidades que tem, o JR da Sysdata nem 
precisava ser tão econômico. Mas é. 

Afinal, ele é o mais completo Micro-Computador de sua 
geração. 

Inclusive no preço. 

Você pode testar estas e outras qualidades do JR em 
qualquer dos nossos revendedores. 


= : 
VAN AV. PACAEMBU, 788 
Sysdafa CEP 01155 - TEL: 67.5900 








REVENDEDORES: SÃO PAULO /Capital - Ad Data 8654.8200; ADP System 227.6100; Búcker 881.7995; Cinótica 36.6961; Compumarketing 212.9004; Compute 852 8533; Com 
puterand 231.327; Foto Léo 35.7131; Fotótica 8530448; Guedes 289.9051; Horst 203.5597; Interface 852.5603, Lema 210.5929; Microrei 881.0022: Miprotec 289.4941; Nova Gera: 
cão 814,3663; O.P.A. 35.8685; Plandata 275.0181; Plantel 543.9653; Sacco 814.0598; Servimec 222.1511; Sistenac 282.6809; S.0.S. 66.7656; Runner's 469.0887 

Computer House 8525855; Computique 32.6322; Microtok 32.4445; Rio Claro - Coml. Micro Cosmos 34.5801; Preto - Compusys 635.1195 - Araras - Copec 41.3779; 
Taubaté - Ensicon 33.2252; Mogi Guaçu - Guaçumag 2651.0236; Paulista - infordata 543.5198; Bauru; Marília - Sipro 33.4109; Catanduva - Telodalto 22.8119; RIO 
DE JANEIRO /Capital - Clap 2728.0734; Computique 2687.1093; G D M Informática 284.8744; JR de Góes 246.4180; Kristian 391.3165; Suprimento 274.8845; Petrópolis - Foto Oti 
ca 421391: MINAS GERAIS /Belo Horizonte - Compucity 2265.6336; Computec 225.2617; Kemitron 225.0644; Minas Digital 337.7346; Poços de Caldas - Computique 721.5810; 
RIO GRANDE DO SUL/Porto Alegre - Advancing 26.1194; Aplitec 24.0465; Digital 24.1417; Microsis 22.9782; Pelotas - Sistematika 223810; Novo Hamburgo - Micromega 
93.4721; PARANÁ Curitiba - Computique 243.1741; Micro System 232 3533; Morgen 232 0543; Ponta Grossa - Grupo Data Memory 24.6191; Londrina - Shop Computer 
23.974; GOIÁS /Goiânia - Casa do Microcomputador 223. 1165; Grupom 225.8226; SANTA CATARINA / Florianópolis - Castro 22 6933; Infotec 23.4777; BRASÍLIA / Distrito 
Federal - Compushow 7273.2128; Digitec 225.4534; MATO GROSSO DO SUL/Campo Grande - DRL 3827.6487; Video 3214220; CEARÁ/ Fortaleza - Siscompy 2444691; 
PARAÍBA / João Pessoa - Medusa 2721.6743; PERNAMBUCO /Recife - Elogica 2411388. 
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À vendia nos boas casos do romo. lojas especializadas de fotovideo-som e grandes magazines em: ALAGOAS - Moceis, Pal dos Indios, AMAZONAS - Moncus, BAHIA » Salvador, CEARÁ - For 
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ANTES DE VENDER UM MICROCOMPUTADOR PARA SUA EM- 
PRESA, A DISMAC ESTA INTERESSADA EM SABER EXATAMENTE 
AQUILO QUE ELA PRECISA. 

POR ISSO, A DISMAC CRIOU UM PROGRAMA QUE ESTUDA O 
TIPO ETAMANHO DA SUA EMPRESA, IDENTIFICA SEUS PROBLEMAS 
EFAZUM PROJETO ESPECIFICO PARA AUMENTAR SUA EFICIÊNCIA, 

DIMINUINDO SEU CUSTO. VOCE CONSULTA A DISMAC SOBRE O 
PROGRAMA MICRO ESFORÇO SEM NENHUM COMPROMISSO, CA- 
SO VOCE SE DECIDA PELA IMPLANTAÇÃO DO PROJETO, A DISMAC 
PODE OFERECER TUDO O QUE VOCE VAI PRECISAR PARA ISSO, CA- 
SO CONTRÁRIO, VOCÊ NÃO PAGA ABSOLUTAMENTE NADA. 
. UMA OPORTUNIDADE EM MIL PARA SUA EMPRESA TIRAR AS 
pe DUVIDAS E VOCÊ ACABAR COM SEUS TEMORES. 


O QUE UM MICROCOMPUTADOR MULTIUSUÁRIO QUEM ME OFERECE ASSISTÊNCIA? 


FAZ POR MIM? 


Até hoje para responder es- 
DM): pergunta só existia um 

jeito: fazer sua empresa 
comprar e instalar um microcompu- 
tador e aprender por si mesma. 

O programa Micro Esforço aju- 
da você a entender o que um micro- 
computador é e o que ele faz dentro 
da sua empresa, antes que você in- 
vista um centavo nele. 


COMO ESCOLHER O 


EQUIPAMENTO? 
Quando sua empresa cha- 
MM): um fabricante ou um re- 
presentante de microcom- 
putadores, ela está arriscada a 
comprar o que eles têm para ven- 
der. Não o que você precisa. a 

Muitas acabam colocando um 
equipamento na sua empresa, sem 
ao menos se importar com o tipo ou 
tamanho do seu negócio. 

Com o Programa Micro Esforço, 
você elimina todos esses riscos, por- 
que ele identifica qual a capacida- 
de do equipamento que você real- NE ' ; 
mente precisa. E se for o caso, diz - o do io A — 
para você que sua empresa não pre- || uia, + UR — 
cisa de microcomputador. 
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A Dismac tem microcompu- 
|. ES para empresas pe- 

quenas, médias ou grandes. 
E a única que tem o sistema multiu- 
suário. Isso quer dizer que um fun- 
cionário da sua empresa não preci- 
sa esperar outro terminar a opera- 
ção para que ele inicie. Até 8 depar- 
tamentos da sua empresa podem ter 
informações diferentes ao mesmo 
tempo. 


ATE ONDE EU POSSO 

CONTAR COM OS SISTEMAS? 
Muitas empresas estão 
usando somente a metade 
da capacidade dos seus mi- 

crocomputadores. Uns porque não 

encontram sistemas certos para re- 

solver seus problemas. Outros por- 


que não sabem como usá-los. 
No Programa Micro Esforço, 


quando a Dismac estuda seus pro- 
blemas, ela já pode dizer quais os 
sistemas você vai precisar e desen- 
volve cada um, especialmente para 
o seu caso. 


Para a Dismac, a vida de um 

microcomputador não aca- 

ba no momento em que você 
compra e instala. Ela sabe que se vo- 
cê precisar de assistência técnica, 
cada hora que o equipamento esti- 
ver parado, representa dinheiro 
que você está perdendo. 

Através do Programa Micro Es- 
forço, a Dismac desenvolve um me- 
canismo para atender seu caso em 
menor tempo e com maior eficiên- 
cia, em qualquer ponto do Brasil. 


HOT LINE 
Para sua empresa conhecer 
a) Programa Micro Esforço 
sem nenhum compromisso e 
ter um projeto para solucionar seus 
problemas sem nenhum custo, é só 


ligar para (011) 825-3588, 825-2696 
e falar com o Sr. Akira. 


PNdismac 










5 6825-3588 





Júnior, o micro prodígio da Itautec. Mais de 160 soft- 
wares já desenvolvidos e catalogados. E muitos outros 
em desenvolvimento. Soluções imediatas no planeja- 
mento, análise, racionalização, aprendizado, controles e 
aperfeiçoamento de métodos e sistemas. Dois progra- 
mas, desenvolvidos especificamente pela Itautec, aten- 
dem às necessidades diárias de empresas e profissionais: 
Redator- Processador de textos para língua portu- 
guesa. Caletec- Planilha de cálculo eletrônico, que per- 
mite qualquer tipo de cálculo, no formato linha/ 
coluna, com possibilidade de recálculo e atualização 


a 





Júnior tem solução pra tudo. 


imediata dos dados. Júnior. Micro versátil, pessoal e 
profissional, que atende com eficiência às mais diversas 
áreas, como medicina, engenharia, direito, agropecuá- 
ria, educação, administração, arte, música, e tem aplica- 
ções domésticas. Sempre com 
a garantia de assistência da 
Itautec, Um nome compro- 
metido com a evolução da 
informática nacional, 


Itautec 








São Paulo: ADP Systems - tel. 2277-4433, Centurion = tel, 2340-4749, € omputigue - tel. 21-3922; Compucenter = tel. 255-5988, c yberdata - tel. 853-5740; Compushop - tels. 


815-0099/852-7700, Disbrase = tel, 257-48866;, Enter - tel 
= tel, 5700676; Tekodata = tel, 62-7243, Servimoec - tel. 
Especo = tel. 625-91 00. Rão Claro: Du tel 







José dos Campos: Lc 





533-9722; lodata - tel, 5349-8699; MCS = tel. 571-7469, Mercatel - tel, 259 
1511. Campinas: APV = tel, 51-9470, Computique = tel, 32- 
= tel. 22-73 1. 8. José do Rio Preto: 






bs, Optoc = tel. 255-7499, Scherna - tel, 259-0311; Sidapis 
2-4483, França: Espoco - tel. 723-5000. Ribeirão Preto: 





STR- 
3 = tel. 32-9646, Rio de Janeiro: Microshow = tel. 2064-5797, 


A y q 1 
Centurion - tel. 208-5398; Computique = tel. 267-109%, Disbrase - tel 324437), Belo Horizonte: Compucity - tel. 226-6356; Engenpel - tel. 467-4500. Poços de Caldas: Computiue = tel 
7231-5810, Uberaba: Especo - tel. 332-880]. Brasília: Urbansoft - tel: 225-4848, Fortaleza: Informática - tel. 224-3923, Ameite: IT - tel. 231-1308. Salvador; Lógica - tel. 235-4154. Curitiba: 
Computique = tel. 243-1731; Comicro - tel. 224-5616. Londrina: Comicro - tel. 230065; Compushop - tel. 23-71 10. Brusque: Renaux - tel. 22-8292 Jolnvilia: Comicro - tel. 32-7520; 


Unicen = tel. 22-2066. Porto Alegre: Compamídia = tel, 22-5288, Proa - tel. 22-5459 
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ANO Biblioteca 
Nº3 
ER rss Sistemas 
SUMÁRIO 
To RELATÓRIOS: VT SPC (4);AS SIDRA - Uma distração, 
A SAÍDA PARA UMA o comando NEW e 


BOA FORMATAÇÃO - 

O comando PRINT SPC (X), 
no Apple, permite imprimir 
linhas com mais de 40 colunas, 
mas exige campos de 
comprimento fixo, E se o 
tamanho for variável? Veja um 
macete neste artigo de Antonio 
Carlos P, Salles. 








pronto. Lá se vai o duro 
trabalho de muitas horas. Mas 
não se desespere: ele não 
sumiu, só está escondido, 

eco MILAGROSO, programa 
de Rudolf Horner Jr., vai 
ajudar você a recuperá-lo. 


Seta endereço 


50802 com o 
valor 508 


Seta o regis- 
trador Y com 


PROGRAME O 








16 EDITOR ASSEMBLER 


PARA A LINHA 90 REM LD A 
SINCLAIR - É fácil errar em 100 REM LDIR 
Assembler. O difícil é achar e 110 REM EX D 
corrigir o erro. No entanto, 120 REM LD C 
com o uso de um bom Editor - 130 REM NOP 


este, por exemplo, desenvolvido 140 LET A=95 
por Luiz Imbroisi Filho - tudo 150 R SS a 

fica mais simples, pois ele 30 REM LD H 
escreve direto em mnemônicos. 








BALANÇO DE SUA 
EMPRESA - Nestes tempos 
bicudos, a saúde das empresas 
/ tornou-se um assunto delicado. 
Veja como estão os seus 
negócios (e os dos seus 
» 4 concorrentes), com o auxílio 
deste programa de Dorlev de 
Jesus Godarth para a linha 
TRS-80. 











A SEQUÊNCIA FORA DE ORDEM - 
14 Programa de Mauro Antunes para a linha 
Sinclair. 


PROGRAMAÇÃO EM FORMA DE 
É A MENU - Artigo de Hernan Campero 
Lopez 


FACILITE A INTERAÇÃO HOMEM - 
MAQUINA - Artigo de Suclena Ortiz 
Porto e Helena Vauthier de Souza. 


COMO CALCULAR VOLUMES SEM 
FAZER FORÇA - Programa de Heber 
Jorge da Silva para TRS-80, 


DECOMPOSIÇÃO LU PARA SISTEMAS 
LINEARES - Programa de Alvaro 
Rodolfo de Pierro para Sinclair. 


ENDEREÇO E TELEFONE? LISTEL 
52 RESPONDE - Programa de Louis Carlos 
Mello para HP-85. 


MICRO BUG: O COMANDO E E A 
5 ROTINA SKEY - Artigo elaborado pela 
equipe do CPD de MS. 


NÚMEROS ALEATÓRIOS - Programa 
58 de Paulo Alfredo Lucena para HP-S1C, 


OTIMIZAÇÃO DE ARQUIVOS EM 
CASSETE - Artigo de Rogê Rosolini para 
TRS-80. 


ARQUIVO DE COMUNICADOS - 
Rodada MS, programa de Alcione 
Sperandio Junior para TRS-80. 


COBRA VOLTA-SE PARA OS 
7 PEQUENOS - o lançamento do 
microcomputador Cobra-210, 


JVA LANÇA JOGOS E UTILITÁRIO 
7 PARA SINCLAIR 


PERDIDOS NA QUARTA DIMENSÃO 
jo! - Programa de José Alexandre Dell"Isola 
para o PC-I211. 


80 CURSO DE ASSEMBLER XVII 
UM ENDURO MICRO-LOUCO - Programa 


de Cláudio Leonardo Milione Dutra para 
Apple. 
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seed 32 Brrs 
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m São Paulo, fiz visita a uma 

loja especializada na revenda 

de microcomputadores. É uma 

loja tradicional do setor, uma 
das primeiras a aparecer na capital 
paulista; goza de boa reputação den- 
tre aqueles que têm por esporte predile- 
to o tour pelas lojas e sempre investiu 
bastante em sua imagem. 

A loja, para meu espanto, estava bem 

vazia, embora estivéssemos em intervalo 
de almoço, hora sabidamente movimen- 
tada devido às visitas daqueles que tra- 
balham. A maioria das máquinas esta- 
vam paradas, enquanto o numeroso 
staff da loja concentrava-se em torno 
de um equipamento aberto nos fundos da 
loja, provavelmente ocupando-se de al- 
gum problema de assistência técnica. 
Fui falar com o dono. “E a crise, Alda. 
Nunca o mercado esteve tão mim”, 
queixou-se ele. 
e Julho de 1981. A Computique inau- 
gurava no Brasil o esquema de comer- 
cialização de varejo de equipamentos 
que até então eram verdadeiras caixas- 
pretas para os não-iniciados. O Rio pos- 
suia a primeira loja de microcomputa- 
dores do país. Lembro-me bem pois 
participei ativamente do fato: o clima 
era de euforia. 





Decorridos quase três anos, o merca- 
do das lojas sofre realmente sua maior 
crise. Muitas lojas fecharam. Muita gen- 
te que previa ganhar dinheiro desistiu. 

Neste contexto, um fenômeno que 
tem criado dificuldades para muitos lo- 
jistas é a verdadeira “queima de preços” 
que vem ocorrendo no mercado das 
grandes capitais. Hoje, um comprador 
potencial de um equipamento tipo 
Apple, se tiver dois ou três dias para 
gastar percorrendo os lugares certos, 
economizará no mínimo um milhão de 
cruzeiros. Soubemos de casos de negó- 
cios realizados recentemente no Rio de 
Janeiro com base em ORTN do mês de 
fevereiro! 

O mercado de periféricos também 
anda descontrolado, depois que um dos 
maiores fabricantes de impressoras do 
mercado vendeu uma partida grande 
dessas máquinas a um grupo de funcio- 
nários de uma empresa estatal e este pes- 
soal passou a revender os equipamentos 
por um preço mais baixo. 

e “O problema é que a oferta é maior 
do quea procura, e a loja tem que ge- 
rar negócios e não somente esperar o 
cliente que entra. E nesta época de cri- 
se, quando entra um cliente, o pessoal 
não quer perder, daí vai dando os des- 
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contos”, disseme um lojista amigo. 

Embora a guerra de preços possa pa- 
recer, a primeira vista, favorável ao com- 
prador, a baixa taxa de rentabilidade com 
a qual funcionam os pontos de venda 
atualmente não darão condições para 
um bom atendimento ao cliente no mé- 
dio prazo. 

E muitos lojistas não negam a parce- 
la de responsabilidade dos fabricantes 
na confusão que se instalou: “Se o fabri- 
cante não é fiel ao revendedor, este não 
pode ser fiel ao fabricante. Estou de- 
volvendo mercadorias, pois certos equi- 
pamentos chegam para mim mais caro 
do que no balcão de outras lojas”, dis- 
se-me um dono de loja. 

Ciúmes à parte, existe outro ponto 
bastante delicado que os lojistas têm 
apontado: o preço do software e a “fal- 
ta de cultura do nosso usuário, que se 
recusa a pagar por software”. Esta dis- 
cussão, no entanto, fica para uma fu- 
tura oportunidade, e convidamos os in- 
teressados a participarem do debate. 


Alda ru por” 
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dução, com finalidade comercial ou não, só poderá ser 
feita mediante autorização prévia. Transcrições parciais 
de trechos para comentários ou referências podem ser 
feitos, desde que sejam mencionados os dados biblio: 
gróficos de MICRO SISTEMAS. A revista não aceita ma: 
terial publicitário que possa ser confundido com matéria 
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NO O NNTADIO PS 
IMPRESSORA 
DE MICROIMAGENS 
KODAK 
KOMSTAR 





À avançada tecnologia do raio laser para 


converter os dados de saída de computador 
em imagens prontas para uso. 


As Processadoras/impressoras de Microimagens Kodak KOMSTAR são verdadeiros 
periféricos de computador, que oferecem notáveis melhoramentos nas operações de 
saída de dados, ao mesmo tempo em que reduzem os custos operacionais. 


outras vantagens que você precisa conhecer. 


Não espere mais tempo. Envie hoje mesmo o cupom abaixo, solicitand 
, o o Guia 
Kodak para as Processadoras/Impressoras de Saída de Dados de Computador. 


Permitem ainda a obtenção de títulos em vários tamanhos, microfichas índi 
| C ) com índice 
em diversos formatos. Tudo com rapidez e perfeição, sempre. Mas além dessas, existem 





Você verá, em detalhes, tudo o que as Processadoras/Impressoras Kodak KOMSTAR 


podem oferecer. 


Ão receber seu Guia, você estará abrindo as portas de sua empresa para a mais 
avançada tecnologia existente no mundo da informática. Uma tecnologia que tem a 


garantia de uma marca que você conhece e confia: Kodak. 


Dados de Computador. 


(OI 3 pla en 5 ecos cassa ” a 
(A Kodak atenderá os pedidos por ordem de chegada e na medida dos seus estoques). 


p===————— 





CUPOM DE RESERVA GRÁTIS 


convosco. CIDADE... 


Departamento de Sistemas Micrográficos 
KODAK BRASILEIRA COMÉRCIO E INDÚSTRIA LTDA. 
Rua George Eastman, 213 e 05690 e Tel.: (OM) 542-01 e São Paulo e SP 


Sim, quero receber gratuitamente o Guia Kodak para as Processadoras/Impressoras de Saída de 


iss ESTADO Sermessinespes 


O sorteado deste mês, que receberá uma 
assinatura de um ano de MICRO SISTEMAS, 
é Ronakio Lobo Burgatti, de São Paulo. 


VIC-20 


Tenho um micro Comodore VIC-20 com 
vários complementos e diversas fitas de jo- 
gos, mas não consigo fazer com que a cor 
apareça na TV, uma Sanyo de 20 polegadas. 
Gostaria de saber se é necessário fazer algu- 
ma modificação ou colocar algum compo- 
nente na TV para obter a cor desejada, pois 
todos os jogos aparecem em preto e branco. 
Gutemberg C. Penteado 
Campinas-SP 


Infelizmente, Gutemberg, nós não temos 
acesso a este equipamento e por isso não po- 
demos ajudá-lo. Mas, quem sabe, algum lei- 
tor poderá lhe ajudar? Vamos torcer. Aten- 
ção leitores que têm experiência com o 
VIC-20: escrevam para a Redação de Mi- 
CRO SISTEMAS, Seção Cartas: Av. Presi- 
dente Wilson, 165 — Salas 1210/1216, Rio 
de Janeiro-RJ, CEP 20030 (NOVO ENDE- 
REÇO). 


Venho por meio desta agradecer a carta 
enviada por MS em resposta ao meu pedido 
de esclarecimento sobre o “Monitor BASIC” 
(publicado em MS nº 25, pág. 14), a qual 
permitiu-me usufruir do monitor. De fato, 
é necessário usar o comando NEW após al- 
terar o valor da RAMTOP. Foi uma falha 
não ter consultado o manual a respeito, 
falha que ocorreu porque, em geral, os ma- 
nuais não estimulam a perfeita compreen- 
são, devido a maneira como são escritos. 

No primeiro manual do TK82-C (que de- 
pois foi relançado com melhor apresenta- 
ção), a possibilidade de reservar espaço no 
topo da memória não é sequer mencionada. 
Permitam-me que discordé da carta de MS 
no que diz respeito à clareza do manual, O 
capítulo 26-1 do manual afirma (na ínte- 
gra):... “NEW, por outro lado, não faz um 
teste de memória cheia, mas apenas verifica 
até antes do endereço RTP. Assim, se você 
fizer um POKE do endereço de byte exis- 
tente para RTP, para NEW toda memória 
daquele byte em diante está fora do sistema 
BASIC e é deixado de lado...” 

Onde está a clareza da absoluta e indis- 
pensável necessidade do NEW? O que está 
claro é que esses bytes protegidos não serão 
afetados por um NEW posterior. Mais adian- 
te, o manual ensina a preservar 20 bytes, or- 
denando que se faça: 

POKE 16388,236 

POKE 16389,71 

e então digitar NEW. Neste caso, o uso do 
NEW (aliás, a carta de MS chama NEW de 
comando e o manual do equipamento cha- 
ma de instrução. Qual o correto?) após os 
POKEs poderia indicar alguma coisa mas, 
sem dúvida, um fato tão importante não de- 
veria ser relegado a um exemplo perdido no 
fim do capítulo. Neste ponto, fica bem claro 
que a ajuda de MS foi de grande valor. 

De novo agradeço pelo puxão de orelhas 
que a carta de MS me deu com relação ao 


artigo “'Linhas de programa: usou, elimi- 
nou!” (publicado em MS nº 27, pág. 56), 
pois fui muito apressado em dizer que havia 
erro, pois de fato o programa funciona. Pe- 
ço transmitir ao autor (Gérson Bianco Alon- 
so) meus parabéns pela valiosa colabora- 
ção (...). 

Ricardo Mendonça 

Recife-PE 


Que bom que conseguimos te ajudar, 
Ricardo. Melhor ainda é que você nos deu 
um bom retorno sobre os seus problemas. 
Agradecemos sua gentileza. Agora, com rela- 
ção à sua pergunta se o NEW é um comando 
ou uma instrução, ele só será uma instrução 
se pertencer a uma linha de programa. Fora 
da listagem do programa, o NEW é um co- 
mando. 


SERRA PELADA 


Tendo digitado e gravado o programa 
“Aventuras em Serra Pelada” (editado em 
MS nº 28, pág. 14), verifiquei erro na ação 
número 84 da página 15, pois não se conse- 
gue acender a dinamite mesmo portando-se 
o isqueiro. 

Assim, na referida ação, onde se lê: 
“|-E-O,HWS$S?F”, leia-se: "/—E-N,HWS$2F”. 
Gostaria que a correção fosse apresentada 
aos demais leitores dessa conceituada pu- 
blicação. . 
Carlos Henrique Crivellaro 
São Paulo-SP 


Você está correto, Carlos. Agradecemos 
muito por sua atenção. 


OBSERVAÇÕES DO LEITOR 


Gostaria de parabenizá-los pelo excepcio- 
nal serviço que vêm prestando à comunidade 
brasileira adepta do micro e equipamentos 
de maior porte (...) É lógico que todas as 
manifestações do ser humano estão sujeitas 
a falhas, pois é muitas vezes errando ou co- 
metendo enganos que aprendemos mais. 
Venho então chamar a atenção para dois 
erros em programas publicados em MS 
nº 28, nos programas “Penosa Travessia” e 
“Laser Base: O tiro do canhão”: 

1 — Programa Penosa Travessia 

Quanto à parte em Assembler que trata 
de uma rotina que roda a tela para a esquer- 
da, tudo bem. O erro, entretanto, encontra- 
se nas linhas 34 e 35: quando mandamos im- 
primir a galinha na avenida não pergunta- 
mos ao programa (através de um PEEK) se 
aquele ponto está obstruído ou não, fazen- 
do-se esta pergunta posteriormente, ou seja, 
invertendo a ordem. Minha sugestão é a se- 
guinte alteração: 


LET A=22 

LET B=10 

FOR Z=1 TO 300 

PRINT AT A,B; 

IF PEEK (PEEK 16398+256* 
PEEK 16399)<>0 THEN LET A=22 
PRINT AT A,B;"S"; AT A,B;" * 


Assim, a linha 32 aponta a posição de 
impressão da galinha no vídeo. A seguir, a 
linha 33 pergunta ao arquivo de imagem se 
esta área do vídeo corresponde a um espaço 
em branco (0) ou aum obstáculo (<> 0) 

Se for um espaço, prossegue a execução nor- 
mal do programa, caso contrário, mandamos 
a galinha de volta à sua origem. Acredito 
também que o programa fique mais interes- 


sante se modificarmos a linha 22: 
22 IF M=0 THEN PRINT AT F, INT 
(RND*28); “ (8 espaços inversos) ” 
2 — Programa Laser Base 

Por um erro de impressão, no endereço 
16610 foi dado o valor de DA, acarretando 
o seguinte: quem é usuário do jogo reparou 
que o canhão inimigo acompanhava os mo- 
vimentos do jogador, mas sem atirar sobre 
este, O que provocou uma perda de atração 
pelo jogo, sem mencionar o fato de que o 
jogo não parava nunca. Analisando o Assem- 
bler, nos endereços 16610, 16611 e 16612 
tínhamos que: 
16610 DA 1A 41 JP C, 16666 
isto fazia com que o resto do segundo bloco 
não fosse efetuado e o programa entrasse em 
loop não retornando ao BASIC. Em lugar 
de DA, o byte certo é CA, que ocasiona: 
16610 CA 1A 41 JP Z, 16666 
satisfazendo, assim, a comparação anterior: 
16608 FE DZ CP 210 
Ronaldo Lobo Burgatti 
Santos-SP 


Ronaldo, agradecemos suas interessantes 
sugestões e aproveitamos para lhe fazer uma 
sugestão: por que você não desenvolve pro- 
gramas e manda para a gente? 


MS AGRADECE 


Gostaríamos de assinalar o grande su- 
cesso que vem tendo a revista MICRO SIS- 
TEMAS em nossa loja, pois em apenas um 
dia todo o estoque foi vendido, obrigando- 
nos a solicitar com urgência uma nova re- 
messa. 

Computer — Feira de Computadores e Siste- 
mas Ltda. 
Feira de Santana-BA 


A revista MICRO SISTEMAS vem 
melhorando cada vez mais, número a 
número. Gostaria de parabenizá-los pelos 
programas e pela qualidade da revista. Sou 
leitor regular e em todas as MS venho 
encontrando um alto nível técnico em todos 
os programas e em todas as dicas. Outrossim, 
meus sinceros agradecimentos ao diretor 
técnico, Renato Degiovani, pelos programas 
e pelas dicas. 

Enrique Montero 
Viçosa — MG 


ANÚNCIOS PERIGOSOS 


Li na revista MICRO SISTEMAS nº 26 
um anúncio do Sr. Alexandre Farias, que me 
parecia bom: ele desejava trocar informações 
e programas. Resolvi escrever para ele e de- 
pois de algumas correspondências, como 
alguém tinha que começar a mandar fita K-7 
pelo correio, resolvi mandar primeiro. Man- 
dei a fita e uma carta. Esperei uma semana e 
mandei outra carta, e depois outras. Aconte- 
ceu que acabei sem uma fita e arranjando 
um belo e desprezado amigo. 

Gostaria que escrevessem para ele pedin- 
do que, pelo menos, me devolvesse a fita. 
Alexandre Costa Gaeta 
Rio de Janeiro-RJ 


Em primeiro lugar, quero parabenizá-los 
pela revista: a melhor do gênero, a meu ver. 
Possuo um computador pessoal CP-200 e 
admiro muito os programas e implementa- 
ções para as versões do Sinclair. 

Há algum tempo, li um anúncio em um 
jornal de classificados sobre a venda de soft- 
ware por correio a preços convidativos. 
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Tendo me interessado, enviei ao anunciante, 
Sr. Eduardo Marçal (Caixa Postal 78, CEP 
18100, Sorocaba-SP), uma carta solicitando 
um catálogo dos programas disponíveis, no 
que fui prontamente atendido, Fiz o pedido 
de um programa através de uma carta, a qual 
anexei um cheque nominal cruzado a favor 
do Sr. Marçal. Após mais de um més, remeti 
ao Sr. Marçal nova carta pedindo esclareci- 
mentos sobre a fita, mas não obtive resposta. 
Gostaria de uma informação: no endere- 
ço anteriormente citado funciona alguma 
loja ligada à Informática do vosso saber? Em 
caso negativo, gostaria de alertar aos outros 
leitores para que fiquem atentos contra mais 
um desses novos piratas. 
Carlos Alberto Episcopo 
São Paulo-SP 


Nós não podemos afirmar, em nenhum 
destes casos, se houve ou não uso de má fé. 
O que podemos fazer, e fazemos, é abrir es- 
paço para que os usuários façam as suas de- 
núncias, que, aos poucos, vão formando um 
maior nível de consciência na grande maio- 
ria dos usuários. Talvez aí possamos, juntos, 
fazer uma seleção entre aqueles que respei- 
tam ou não o mercado consumidor de mi- 
cros e software. 


PERIFÉRICOS DO TK 85 


Na qualidade de possuidor de um TK 85 
(16 K), gostaria que me esclarecessem al- 
guns pontos com relação aos periféricos 
constantes do folheto de especificações téc- 
nicas do TK 85: 
1º — Não existe em lugar nenhum, isto é, 
em nenhuma loja de micros aqui em Belo 
Horizonte, a impressora que a Microdigital 
diz existir à disposição do TK 85; 
2º — Não se encontra também o gerador de 
som para o TK 85; 
3º — Como o preço do TK 85 de 16 K é 
bem abaixo do preço do TK 85 com 48 K, 
resolvi comprar o de 16 K pensando em 
mais tarde expandí-lo para 48 e até mesmo 
64 K, uma vez que esta possibilidade consta 
do folheto de especificações do equipamen- 
to. 

Gostaria de merecer, o mais rápido pos- 
sível, uma resposta clara e objetiva sobre es- 
tes fatos que enumerei, uma vez que consi- 
dero de extrema utilidade a disponibilidade 
destes periféricos para a plena exploração 
dos recursos que o TK 85 me parece possuir. 
Sérgio Eduardo de O. Lourenço 
Belo Horizonte-MG 


Como sempre, Sérgio, remetemos sua 
carta para a Microdigital. Eis a resposta: 
“Em atenção à carta que nos foi enviada 
pela conceituada revista MICRO SISTEMAS, 
informamos que apreciamos muito suas ob- 
servações sobre os periféricos do microcom- 
putador TK-85, e pela presente responde- 
mos às suas dúvidas: 

1—- A impressora, que sua carta se refere, 
foi comercializada pela Microdigital no inf- 
cio de 1983, e por problemas de compo- 
nentes (os quais eram em sua maioria im- 
portados) paramos completamente sua pro- 
dução. Outrossim, informamos que breve- 
mente iremos fabricar uma interface com ca- 
bo para qualquer impressora paralela (Mô- 
nica, Em 

2 — O gerador de som estará disponível a 
partir de junho. 

3 — A expansão de memória para 48 K do 
TK-85 se encontra disponível, com o preço 
de Cr$ 274.850,00. Caso este periférico não 
esteja sendo comercializado em sua cidade, 
favor entrar em contato com nosso Depar- 
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tamento Comercial: A. Angélica, 2318/ 
to 14º andar, CEP 01223, São Paulo- 


Ricardo Tondowski 
Dept. de Relações Públicas da Microdigital 


Sou proprietário de uma calculadora 
HP-41CV, série 2232541461, adquirida nos 
E.U.A. Tendo apresentado defeito, levei à 
filial da HP no Rio de Janeiro, dentro do 
prazo de garantia, para consertá-la. Foi-me 
negado o conserto dentro dos moldes do 
contrato de garantia, com a alegação de que 
a máquina com esta série só tem garantia 
nos E.U.A., e que eu teria que enviar a má- 
quina para lá! 

Inconformado, escrevi para a matriz da 
HP no Brasil (em São Paulo), que, em res- 
posta, afirmou ser efetivamente da respon- 
sabilidade da matriz mundial da Hewlett- 
Packard a garantia da máquina, mas que es- 
tavam estudando uma forma de revisão dos 
procedimentos da norma de garantia para 
englobar casos como o meu. 

(...) Acho um absurdo que a HP queira 
que envie minha calculadora para os E.U.A., 
quando aqui temos uma filial da empresa 
norte-americana. Segundo os prospectos e 
manuais da HP, a garantia dos produtos é 
em qualquer parte do mundo, e somente 
quando num determinado país não existe 
uma filial da empresa é que torna-se neces- 
sário enviar para o local de origem para 
eventuais consertos. O bom nome conquis- 
tado no mundo inteiro pela Hewlett-Packard 
é garantia de qualidade extrema. A filosofia 
da empresa nos EEUU é servir aos seus usuá- 
rios. Por que aqui no Brasil a empresa não 
mantém o mesmo padrão de atendimento? 
Mário Augusto T. Russo 
Rio de Janeiro-RJ 


Como sempre, mandamos sua carta para 
a Hewlett.Packard. Aí vai a resposta que re- 
cebemos, Mário: 

“Informamos que, efetivamente, a Hew- 
lett-Packard do Brasil oferecia garantia ex- 
clusivamente a produtos brasileiros ou 
acompanhados de Nota Fiscal de Venda de 
Revendedor Autorizado no Brasil. Esta si- 
tuação alterou-se em fevereiro de 1984 e, 
desde então, estamos podendo atender em 
garantia produtos importados adquiridos há 
menos de um ano. 

Estamos ao inteiro dispor do Sr. Mário 
para os serviços necessários.” 

Rubens Stephan Junior 
Gerente da Assistência Técnica da HP 


Gostaria que publicassem junto com os 
programas os respectivos fluxogramas, pois 
quem não tem o micro para o qual foi de- 
senvolvido determinado programa poderá, 
após fazer as modificações necessárias, ro- 
dar o programa em outro equipamento. 
Fernando Pires de Almeida 
Três Rios-RJ 


Primeiramente, gostaria de cumprimentá- 
los pelo trabalho que vem sendo executado 
através de MICRO SISTEMAS. Quando há 
um trabalho sério, a gente aprende a confiar 
nas informações contidas na revista, e esta 
passa a ser um instrumento a mais em nossa 
vida profissional. 

Como todos, porém, gostaria de fazer as 
minhas sugestões: 


— Acrescentar ao pequeno currículo, que 
acompanha cada artigo assinado, um endere- 
ço (e talvez um telefone, não se esquecendo 
do respectivo código de DDD) do autor, pa- 
ra onde se possa escrever (ou telefonar) dire- 
tamente e tirar dúvidas que possam ter sur- 
gido da leitura de algum artigo. 

— A inclusão de mais artigos técnicos, tanto 
de hardware quanto de software. 

Jorge S. Lucas 

Diretor técnico da Proma — Sistemas Analó- 
gicos e Digitais —- MG 


(...) Gostaria de fazer algumas considera- 
ções e sugestões: 
a) seria bastante interessante se vocês publi- 
cassem uma espécie de guia do programador, 
com dicas práticas de transformação de um 
estilo de BASIC para outro. Por exemplo, 
um programa em BASIC Applesoft para o 
BASIC do TRS-80 etc. Este guia deveria ser, 
na medida do possível, destacável, para fa- 
cilitar o seu uso, Repare-se que esta publi- 
cação iria melhorar o padrão da revista, uma 
vez que Os programas poderiam ser proces- 
sados em todos os estilos de BASIC (Apple, 
Sinclair e TRS-80); 
b) por que vocês não traduzem artigos de re- 
vistas estrangeiras e criam uma coluna espe- 
cializada?; 
c) achei bastante interessante os monitores 
BASIC e Assembler (publicados, respectiva- 
mente, em MS 25 e 23). Acho incrível a es- 
cassez de programas aplicativos “sérios”, e 
estes devem vir sempre em MS, pois este ti- 
po de programa compensa sua publicação. 

Estas são as minhas críticas e sugestões. 
Espero sinceramente que as mesmas aumen- 
tem cada vez mais o padrão da revista. 
Sandro José Probst 
Rio do Sul-SC 


Na MICRO SISTEMAS nº 27, encontrei 
um artigo sobre “Arte e técnica na tela do 
computador”, de Renato Degiovani. Gostei 
e pediria para não só desenharem as figuras, 
mas também publicarem programas sobre os 
desenhos, principalmente para micros da li- 
nha Sinclair. 

David Gômez 
Belo Horizonte — MG 


Gostaria de fazer a seguinte sugestão: 
que tal a publicação de programas aplicati- 
vos para TK? Nós, usuários sérios desses equi- 
pamentos, já estamos cheios de jogos e gos- 
taríamos de programas mais úteis. 

Edison Bueno da Silva 
Jundia( — SP 


Gostaria de colocar como sugestão a 
venda de uma capa dura para que os felizes 
colecionadores de MICRO SISTEMAS pu- 
dessem guardar seus exemplares; e também 
sugerir uma tabela comparativa entre os 
comandos em BASIC e Assembler (por 
exemplo: LD A, 50 seria, em BASIC, LET 
A = 50). 

Michel Lewinger 
São Paulo-SP 


Deixo registrada a minha sugestão: um 
breve curso sobre Cálculo Numérico ligado 
às atividades de programação em computa- 
dores de pequeno porte e/ou pessoais, pos- 
sibilitando assim um maior desenvolvimento 
de programas relacionados com Matemática 
e, consequentemente, com Engenharia. 
Gilberto A. Rodrigues 
Santos-SP 


Envie suas sugestões para MICRO 
SISTEMAS. Elas serão anotadas em nossa 
pauta e procuraremos, na medida do 
possível, viabilizá-las. 








Para os computadores da linha Apple, uma explicação de como bem formatar 
relatórios de saída em BASIC, usando o comando SPC (X) 








Relatórios: a saída 
para uma boa formatação 


de saída em relatórios, para 

computadores da linha Apple. 
Como todos sabem, os micros tipo 
Apple não permitem o uso do comando 
PRINT TAB (X) na mesma linha quan- 
do X for maior do que 40, caso em que 
a impressora salta uma linha, dificul- 
tando a formatação de relatórios im- 
pressos. 

Para resolver este problema, existe 
um comando que define quantos espa- 
ços em branco devem ser deixados entre 
o campo a ser impresso e o campo im- 
presso anteriormente. Este comando é o 
PRINT SPC (X), indicando que, entre a 
última posição do campo impresso an- 
teriormente e a primeira posição do 
campo a ser impresso no comando, de- 
vem existir X espaços em branco. 

Até aí não existe segredo, claro; não 
se os campos a serem impressos tives- 
sem um tamanho fixo. Mas, como to- 
dos sabem, em relatórios de saída ge- 
ralmente são impressos nomes, números, 
quantias monetárias etc., e estes campos 
quase nunca têm tamanho fixo. Como a 
linha de programa que define a impres- 
são de linhas no relatório costuma ser 
única dentro de um loop, se você fixar 
o valor de X dentro do SPC (X), as li- 
nhas sairão todas desarrumadas. É justa- 
mente esta a função deste artigo: mos- 
trar como resolver este tipo de proble- 
ma. 

Vamos então considerar o relatório 
que está na figura 1. Como se pode 
observar, todos os campos têm tamanho 


ste artigo visa apresentar algu- 
ID mas regrinhas de formatação 
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Antônio Carlos Palmeiras Salles 





variável. As linhas verticais pontilhadas 
definem o tamanho máximo de cada 
campo. 

Consideremos as seguintes condições: 
19) impressão do campo 1; 

29 ) impressão do campo 2 em diante. 
Observação: os campos podem ser ali- 
nhados à esquerda e/ou à direita. 

No primeiro caso, onde não se tem 
campos anteriores impressos, as possi- 
bilidades são apenas estas: 

a) alinhados à esquerda (nomes, títulos 
etc.); 

b) alinhados à direita (números, valores 
monetários etc.). 

No segundo caso, as possibilidades 
aumentam, pois deve ser considerado o 
campo anterior, ou seja: 

a) anterior alinhado à esquerda — atual 
alinhado à esquerda; 
b) anterior alinhado à direita — atual 
alinhado à esquerda; 





Campo 1 


Campo 2 


c) anterior alinhado à esquerda — atual 
alinhado à direita; 
d) anterior alinhado à direita — atual 
alinhado à direita. 

Vamos estudar cada caso em particu- 
lar, mas antes vamos abrir um parên- 
tesis para alguns esclarecimentos que 
irão ajudar a entender tudo o que vem a 
seguir. 

No caso de um campo numérico já 
estar formatado para valor monetário, 
ou seja, na forma XXX.XXX,XX, lo- 
gicamente deve estar numa variável al- 
fanumérica (do tipo X$). Caso contrá- 
rio, para que se possa conseguir o ta- 
manho deste valor (o que vai ser de im- 
portância primordial no decorrer do ar- 
tigo), usa-se LEN(STRS (variável)). Va- 
mos, no entanto, considerar que o cam- 
po numérico (a ser alinhado à direita) 
já está formatado numa variável alfa- 
numérica. 





Figura 1 
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PRINT SPC (4);AS 


















































Figura 3 


OS CAMPOS DE IMPRESSÃO 


Apenas por simples convenção, deno- 
minaremos os campos a serem alinhados 
à esquerda (nomes, títulos etc.) de AS 
e B$, e os campos a serem alinhados à 
direita (números, quantias monetárias 
etc.) de X$ e Y$. Vamos, então, a ca- 
da caso em particular. 

1) Impressão do primeiro campo 

1.1. — Alinhado à esquerda — este é o 
caso mais simples. Basta definir quantos 
espaços devem ser deixados a partir da 
coluna 1 (veja um exemplo na figura 2). 
1.2. — Alinhado à direita — neste caso, o 
campo deve estar alinhado à direita e, 
para tal, toma-se o valor da última posi- 
ção à direita a ser impressa (posição de 
alinhamento). O exemplo está na fig.3. 
2) Impressão do segundo campo em 
diante 

Antes de passarmos aos quatro casos 

aqui inseridos, vamos definir o seguinte: 
e DISTI — distância entre a primeira 
posição do campo anterior e a primeira 
posição do campo a ser impresso; 
e DIST2 — distância entre a última po- 
sição do campo anterior e a primeira po- 
sição do campo a ser impresso; 
e DIST3 — distância entre a primeira 
posição do campo anterior e a última 
posição do campo a ser impresso; 
e DIST4 — distância entre a última po- 
sição do campo anterior e a última po- 
sição do campo a ser impresso. 

Vamos agora aos casos: 

2.1 — Anterior alinhado à esquerda — 
atual alinhado à esquerda — neste caso, 
temos A$ (campo anterior) alinhado à 
esquerda e B$ (campo a ser impresso) 
alinhado também à esquerda. No exem- 
plo da figura 4, vamos considerar, con- 
forme as definições que acabamos de 
ver, DISTI= 20. 

2.2 — Anterior alinhado à direita — 
atual alinhado à esquerda — este tam- 
bém é simples: como o campo anterior 
(XS) está alinhado à direita e o campo a 
ser impresso (B$) está alinhado à es- 
querda, basta definir quantos espaços 
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devem separá-los, diretamente. Na figura 
S temos um exemplo, onde DIST2= 4. 
2.3 — Anterior alinhado à esquerda — 
atual alinhado à direita — temos AS ali- 
nhado à esquerda e YS$ alinhado à di- 
reita. Este é um pouco mais complexo: 
DIST3= 31. O exemplo está na figura 6. 
24 — Anterior alinhado à direita — 
atual alinhado à direita — para termi- 


PRINT SPC (DISTI-LEN(A$S));BS 


nar, temos dois campos alinhados à 
direita: X$ e Y$. Veja o exemplo na fi- 
gura 7, onde DIST4= 24. 

Com isto, ficam cobertas todas as 
possibilidades de saída de relatórios. 
Pode parecer um pouco complicado, 
mas com algum treino torna-se bem 
mais simples e, com certeza, é a maneira 
mais lógica. 

Para finalizar, devemos lembrar ao 
leitor que, embora os exemplos mostra- 
dos aqui abranjam apenas dois campos, 
a técnica é válida para quantos campos 
forem necessários imprimir por linha, 
bastando para isto que, entre um SPC 
(X) e outro, seja feita uma separação 
por ; (ponto e vírgula) pois, caso contrá- 
rio, a impressora salta uma linha. 





Antônio Carlos Palmeiras Salles, atualmente 
cursando Ciência da Computação na Univer- 
sidade Federal da Paraíba, Campina Grande, e 
responsável pela implantação e funcionamen- 
to de um micro CPD em uma empresa comer- 
cial nesta cidade, é sócio da Data Shopping 
S/C Ltda., empresa especializada em assesso- 
ria, desenvolvimento de software e treina- 
mento em computação. 



























































PRINT SPC (DIST3-LEN(AS)-LEN(Y$));YS- 


























PRINT SPC (DIST4-LEN(YS$));Y$ 
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Figura 7 











Depois do a vem o b, e assim por diante... Mas parece que seu micro da linha 
Sinclair se atrapalha um pouco com isso. Ajude-o a achar a sequência certa 


Os Kits de Micro Chegaram! 


APPLEKIT - Kit de microcomputador tipo Apple? 








Componentes para montagem 
de um microcomputador 
APPLEKIT completo. 


microcontrol 


Sistemas de Controles 
Tels.: (011) 814-0446 e 814-1110 
São Paulo - Brasil. 


c.A º 


À sequência fora de ordem 


ste é um jogo aparentemente fácil, 

mas que poderá deixá-lo com a pulga 

atrás da orelha tentando achar o me- 

lhor caminho para pôr na sequência 
certa a desordem que o seu micro da linha 
Sinclair fará com letras ou números. 

O programa gera um quadro semelhante ao 
que está na figura 1. O número de linhas e co- 
lunas é definido por você (há um mínimo e 
um máximo para cada um), assim como os ca- 
racteres: letras ou números. Sua tarefa será, 
portanto, arrumar a bagunça, ou seja, colocar 





Segiência 





NCIA - M 





" 0,0;" 


"LINHA 
QUANTAS 
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Mauro Antunes 
e 


as pedras (caracteres) na ordem certa, movi- 
mentando-as com as teclas $,6,7 e 8.0 as- 
pecto final do quadro deverá ficar, no nosso 
exemplo, igual ao da figura 2 





Observações importantes: a movimentação 
deverá ser feita da letra ou número para o ca- 
ráter E] , e nunca vice-versa. O número má- 
ximo de jogadas vai variar de acordo com o 
tamanho do quadro. Ponha a cuca para fun- 
cionar! 


Mauro Antunes é Engenheiro Eletricista, for- 
mado em 82 pela UFSM, e usuário de um 
TK85. 





AT K PE 


54 





<1 OR J>=N THEN .GOTO 
AT L,C;AS(I,J+1) 


AT L,C+ 
S(I,J) 


I>M THEN GOTO 54 


; "OUTRA VEZ ?(S 


GoTo 960 
Y GOTO 102 


T AT 10,12; "FIM" 
STOP 
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APPLEKIT 65100 


APPLEKIT-65300 APPLEKIT 65400 











APPLEKIT 65000 | Placa de circuito impresso. | APPLEKIT 65010) Conjunto de soquetes, conectores, resistores e ca- 








pacitores. 





| APPLEKIT 65020! Conjunto de semicondutores, TTL's, LSI e memórias (As memórias EPROM são forneci- 





das com gravação). | APPLEKIT 65100! Conjunto de teclado alfanumérico com 52 teclas e componentes, circuito im- 


presso. | APPLEKI 








0| Fonte de alimentação tipo chaveado. [ APPLEKIT 65300] Caixa de microcomputador em 








poliuretano. | APPLEKIT 65400] Manual de montagem e teste de micro. 


APPLEKIT é 100% compatível com os cartões periféricos da MICROCRAFT. 


* Apple é marca registrada de Apple Inc 





Para quem não tem muita “intimidade” com os mnemônicos, ou para os que querem 
uma garantia a mais de sucesso, este Editor é um verdadeiro achado! 








Editor Assembler 
ara a linha Sinclair 


uando se escreve programas em 

linguagem de máquina a possi- 

bilidade de erro é muito grande, 

o que leva a maioria dos usuá- 

rios a perder a puciência e aban- 
donar seus programas no meio do desen- 
volvimento. No entanto, dispondo de 
um Editor Assembler, o usuário poderá 
eliminar boa parte das dificuldades ine- 
rentes a esse tipo de programação, já 
que o programa passa a ser escrito dire- 
tamente em mnemônicos, facilitando 
sua elaboração, escrita e correção. 

O objetivo deste artigo é, portanto, 
apresentar um Editor para computado- 
res da linha Sinclair com 16 kb de me- 
mória, no qual foi aproveitado o próprio 
sistema BASIC como base de operação. 
Os mnemônicos são escritos dentro de 
linhas REM e a montagem é feita pelo 
Editor Assembler na primeira linha do 
BASIC, a qual será criada pelo Editor 
durante o processo de montagem. Fo- 
ram incluídas, além de todas as instru- 
ções do Z80, duas instruções especiais 
de carregamento (LD), uma que permi- 
te escrever na memória em hexadecimal 


Luiz Imbroisi Filho 





(para colocar dados, por exemplo) e ou- 
tra para escrever códigos de caracteres 
na memória. 


ESCREVENDO O EDITOR 


Depois de escrito, o Editor estará lo- 
calizado após o topo da memória 
(RAMTOP) redimensionado para a posi- 
ção 29.440. Apesar disso, ele poderá 
ser gravado em fita, pois antes da grava- 
ção ele é transferido para uma string do 
BASIC. Quando o programa é passado 
de volta para o computador, ele é auto- 
maticamente recolocado após o RTP. 

O Editor gasta aproximadamente 3 
kb de memória, e para escrevê-lo o pro- 
cedimento a ser adotado é o seguinte: 

1 — execute o comando RAND USR 0; 
2 — execute o comando POKE 16389, 
115; 

3 — como auxílio do Monitor Assembler, 
publicado na MICRO SISTEMAS núme- 
ro 23, ou dalistagem 1 do MICRO BUG, 
publicado na MICRO SISTEMAS núme- 
ro 32, introduza o Editor Assembler (lis- 
tagem 1); 





Z4 MICROMAQ 


AÁ R. Sete de Setembro, 92 
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- Lj. 106 E icaç 
Tel.: 222-6088 - Rio de Janeiro [ES ae El Lrz: a ETR OST Leo oO É TUTO Tor TOR (AM DMA DUTRA 


4 — escreva o programa em BASIC (lis- 
tagem 2); 

Atenção: é importante que o progra- 
ma BASIC seja digitado exatamente 
conforme a listagem 2. Para verificar se 
algum erro foi cometido, dê o coman- 
do direto (fora do programa): 

PRINT PEEK 16396 
A resposta deverá ser 32; caso contrário, 
revise o programa e corrija-o. 
5 — ponha o gravador para gravar; 
6 — dê RUN. 

Aparecerá na tela, após a gravação e 
sempre que o programa for copiado no 
computador, o título EDITOR ASSEM- 
BLER. Dê BREAK e logo após o co- 
mando NEW coloque o computador em 
FAST e o Editor estará pronto para ser 
usado. É recomendada a utilização do 
modo FAST durante o processo de mon- 
tagem, já que o Editor reorganiza algu- 
mas variáveis de controle do sistema 
BASIC, incluída a de controle de tela. 

Para copiar o programa do gravador, 
dê o comando LOAD “EDITOR”; de- 





POR QUE NÃO TUDO EM 
UM SO LUGAR? 


Microcomputadores, Sotware, Publicações 





pois proceda de acordo com o parágrafo 
anterior. 


SISTEMA OPERACIONAL 
DO EDITOR 





O desenvolvimento de um programa 
em Assembler é feito em duas fases: pri- 
meiro escreve-se os mnemônicos nas li- 
nhas REM (do sistema BASIC) e depois 
monta-se o programa. 

Na primeira fase escreva os mnemôni- 
cos em linhas REM consecutivas, a par- 
tir da linha 100. Quando na montagem, 
todas e somente as linhas REM consecu- 
tivas a partir da 100 serão montadas. 
Por exemplo: 


90 REM LD A,B 

100 REM LDIR 

110 REM EX DE, HL 
120 REM LD C,09 
130 REM NOP 

140 LET A=95 

150 REM LD HL,3922 


Neste programa, as linhas 90, 140 e 150 
não serão montadas. Observação: se não 
existir a linha 100, ou então se esta não 
for REM, nada será montado. 

Pode-se escrever mais de um mnemô- 
nico na mesma linha REM, mas para tal 
é preciso separá-los por uma barra incli- 
nada (sinal de divisão no BASIC). Não 
há limite para o número de mnemôni- 
cos por linha. No programa a seguir, por 
exemplo, todos os mnemônicos serão 
montados: 


100 REM SUB C/LD A,C/CPIR 
113 REM IN A,(08)/RET 


Para escrever os mnemônicos siga as 
seguintes regras: 
1 — Instruções normais: 
1.1 — use apenas os mnemônicos do 
Z80 e as duas instruções especiais de 
carregamento (LD); 
1.2 — separe o código de operação e o (s) 
+ pi (s) por um espaço; por exem- 
plo: 


100 REM LD H,L 


Observação: o espaço que aparece entre 
o REM e o código de operação é próprio 
do REM, ou seja, ele não foi (e não deve 
ser) digitado. 

1.3 — não deixe espaços entre memôni- 
e e as barras de separação; por exem- 
plo: 


DIUNZ,45 


EX AF,A'F' 





Figura 1 
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100 REM CP H/NOP/DAA/XOR B 


1.4 — o último mnemônico de uma li- 
nha REM não deve ser sucedido pela 
barra de separação; 

1.5 — quando nas operações aritméticas 
ou lógicas o primeiro operando for o 
acumulador, este não deverá ser escrito; 
a operação a seguir, por exemplo, é a 
mesma que ADD A,C: 


100 REM ADD C€ 


1.6 — as instruções condicionais deverão 
apresentar uma vírgula separando a con- 
dição e o dado que vem a seguir; por 
exemplo: 


100 REM JP NZ,400C 


1.7 — todos os números deverão ser es- 
critos em hexadecimal. 

2 — Instruções especiais 

2.1 — LD * * — esta instrução coloca na 
memória todos os dados contidos entre 
os asteriscos (cada par de caracteres é 
um dado a armazenar na memória, em 
hexadecimal). Por exemplo: 


100 REM LD *80B1C94E12* 


esta linha, quando montada, coloca os 
conteúdos 80, B1, C9, 4E e 12 (todos 
em hexadecimal) diretamente na memó- 
ria. 

2.2 — LD “ “ — esta instrução coloca 
na memória os códigos de cada um dos 
caracteres contidos entre as aspas. Ela 
funciona de modo a escrever mensagens, 
títulos, caracteres na memória, princi- 
palmente quando se quer imprimi-los 
na tela. Por exemplo: 


100 REM LD "VANIA" 


Na memória, serão armazenados os se- 
guintes conteúdos em hexadecimal: 


. 3B (código de V) 
. 26 (código de A) 
- 33 (código de N) 
. 2E (código de 1) 

. 26 (código de A) 

Atenção: a digitação dos mnemôni- 
cos deve respeitar a padronização nor- 
mal de sintaxe das instruções. Na figura 
1, no entanto, temos dois casos, onde 
esta padronização não é respeitada. 





MONTAGEM 





Uma vez escrito o programa em As- 
sembler, a montagem é feita com o co- 





deve ser escrito 


deve ser escrito 


DJNZ 45 
EX AF,AF 


mando PRINT USR 30000. Se o pro- 
grama em Assembler estiver sem erro de 
sintaxe, não só ele será montado como 
aparecerá no canto superior esquerdo da 
tela o número de bytes gasto por ele. Pa- 
ra testar, tecle o programa: 


100 REM LD HL, (400C)/INC HL 
110 REM LD (HL),3D/RET 


Agora dê PRINT USR 30000. Apa- 
recerá o número 7 na tela, que é o total 
de bytes gasto pelo programa já então 
montado. Para visualizá-lo, dê o coman- 
do LIST. 

Observe que agora existem duas li- 
nhas no BASIC com a mesma numera- 
ção (0). A primeira contém o programa 
montado e a segunda é usada como pro- 
teção (nunca apague esta linha). Para ro- 
dar o programa, utilize o comando 
RAND USR 16514 (ou LET A = USR 
16514, etc.). O programa imprimirá a 
letra X na tela. 

Vamos entender como isto aconteceu 
analisando o programa: 


- LD HL, (400€): coloca em HL o ende- 
reço da tela (tirado do manual). Neste 
endereço, o conteúdo é 118 (decimal), 
visualmente fora da tela. 


- INC HL: incrementa o par HL, que 
agora contém o endereço da primeira 
posição visual da tela (coordenadas 0,0 
para o PRINT AT). 


- LD (HL), 3D: coloca no endereço da 
primeira posição da tela o conteúdo 
3D (código da letra X). 


- RET: retorna o comando para o sistema 
BASIC (observe que a rotina em linga- 
gem de máquina funciona como se fosse 
uma sub-rotina do BASIC). Todo pro- 
grama em Assembler deve terminar com 
RET quando tiver que retornar ao 
BASIC; se isto não acontecer, o opera- 
dor perderá o controle (via teclado) — 
tal não ocorrerá somente se no progra- 
ma em Assembler existir rotina de leitu- 
ra de teclado. 

Resumindo, então, o procedimento 
para utilização do Editor Assembler (su- 
pondo já gravado em fita) é: 


1 — carregar o programa com LOAD 
“EDITOR”; 
2 — dar BREAK, NEW e por fim FAST; 


3 — escrever seu programa em Assem- 
ber em linhas REM consecutivas a partir 
da linha 100; 


4 — montar o programa com o comando 
PRINT USR 30000; feito isso ele estará 
montado na memória a partir do endere- 
ço 16514. 


MENSAGEM DE ERRO 





Quando um dos mnemônicos apresen- 


ta erro em sua estrutura o Editor não / 
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EDITOR ASSEMBLER PARA A LINHA SINCLAIR 








o 


Listagem 1 





DIM A$(3140) 
RAND USR 29716 
SAVE " EDITOR" 
POKE 16389,115 
RAND USR 017761 
SLOW 


SI NUNES wly— 


Goro 8 


executa a montagem e mostra no centro 
da tela a mensagem * ERRO * . Para lo- 
calizá-lo, liste o programa e procure o 
mnemônico que tenha um de seus carac- 
teres invertido. O erro está neste mnemô- 
nico (note que o erro não está necessá- 
riamente no caráter invertido). Por 
exemplo: 


100 REM DAA/LD A,G 


PRINT AT 10,5;"* EDITOR ASSEMBLER *" 





Quando for dada a ordem de mon- 
tagem (PRINT USR 30000), o Editor 
mostrará na tela a mensagem de erro 
(não existe o mnemônico LD A,G nas 
instruções do Z80). Listando o progra- 
ma, veremos: 


100 REM DAA/LDH ,G 


A letra A está invertida, indicando que 
o mnemônico LD A,G está errado. 





Listagem 2 


29840 
29850 
29860 





oc 40 22 OC 40 24 


22 PA 40 40 
22 12 
2A 16 
09 22 
40 2A 
co 21 
97 BB 
BE C2 7 
Fó FF 
21 7D 
87 40 
2í OC 
E3 ES 
Ei Di 
eB 77 
Jó 76 
18 FB 


03 2í 
23 70 
21 7E 
FE 08 
3A 
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29870 
29880 
297890 
29900 
29910 
29920 
29930 
29940 
29950 
29960 
29970 
29980 
29990 
30000 
30010 
30020 
30030 
30040 
30050 
30060 
annzo 
30080 
30090 
30100 
30110 
301420 
30130 
30140 
30150 
30160 
30170 
30180 
30190 
30200 
30210 
30220 
30230 
30240 
30250 
30260 
30270 








O Editor também acusa erro quando 
as regras de escrita dos mnemônicos, an- 
teriormente descritas, não forem respei- 
tadas. Para correção do erro, apague o 
mnemônico errado e escreva o certo (uti- 
lizando o comando EDIT do BASIC). 

Este Editor Assembler foi original- 
mente concebido com finalidades didá- 
ticas, mas foi desenvolvido e aperfeiçoa- 
do, e em sua forma atual pode ser utili- 
zado na montagem de programas com- 
plexos. Com um pouco de prática, sua 
utilização torna-se simples, o que faci- 
lita o projeto, o teste e a correção de 
programas em Assembler. 


Engenheiro Operacional Eletrônico, formado 
pelo Centro Federal de Educação Tecnológica 
Celso Suckow da Fonseca, RJ, Luiz Imbroisi 
Filho da Fonseca é atualmente professor de 
Circuitos Digitais e de Eletrônica nesta mesma 
instituição. Paralelamente, desenvolve hard- 
ware e programas em linguagem de máquina 
e em BASIC para computadores da linha Sin- 
clair. 
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o serviço Videotexto 
para usuários de 
microcomputadores 
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PROGRAMAS JÁ DISPONÍVEIS 


Publicado na 
Edição Nº 


Análise de Balanço 
Aprendendo Frações 
Biorritmo 

Cálculo de Áreas 

Cálculo de Volumes 

Catálogo de Disquetes 
Ciclotron, o Jogo das Barreiras 
Compilador Forth 

Copsys 

Dominó com Som 

Mini Editor de Textos 

PIL — Controle da Fertilidade 
Professor J. C. 

Registro Pessoal de Cheques 
Soletrando 

Tutor Matemático 


Todos os meses, este serviço será enriquecido com novos programas 
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Antônio Costa 
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Everton Pereira 

Ivan Camilo da Cruz 
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Jôneson Carneiro de Azevedo 
Marcelo Renato Rodrigues 
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Como elaborar menus computacionais? Temos aqui um programa em BASIC que 
vaí lhe mostrar algumas técnicas que devem ser utilizadas 








Programação 
em forma de menu 


Hernan Campero Lopez 





área de processamento de dados. De fato, esta palavra 

não começou a ser usada por acaso. Com um signifi- 
cado bastante similar ao cardápio, o menu computacional nada 
mais é do que uma lista de opções as quais podemos executar a 
partir de um determinado estágio do programa. 

É claro que existem outras formas de elaborar um progra- 
ma, mas O menu, como veremos mais adiante, é uma técnica 
computacional bastante simples. 

Basicamente, temos dois tipos de usuários de computador: 
o experiente, que conhece a linguagem e é capaz de contornar 
algumas situações de “pane”, e o usuário que não entende na- 
da, aquele que só se interessa por ligar o computador, colocar 
algumas informações e começar a receber as respostas aos seus 
problemas. São estes últimos que realmente têm demonstrado 
o maior interesse, nos mercados europeu e americano, a respei- 
to de programas elaborados na forma de menu. O motivo é 
óbvio. 

Quando estamos diante da tela de vídeo, com a unidade de 
disco funcionando, e nos vemos bombardeados por perguntas 
às quais não sabemos responder ao certo, aí vêm as dúvidas: 
“Se respondo afirmativamente a uma pergunta, será que depois 
eu posso desistir?” No entanto, se o programa for do tipo que 
contém menu, no lugar do bombardeio de perguntas aparece- 
rá na tela de vídeo uma lista com as opções de que dispomos. 

Vejamos um exemplo concreto para facilitar o entendimen- 
to. Vamos supor uma loja que venda veículos de todos os tipos 
(aviões, caminhões, carros, motos, etc.), e admitamos que para 
cada tipo de veículo o vendedor deva preencher os dados num 
certo formato. Uma alternativa neste programa seria a pergun- 
ta: 


palavra menu, usada como sinônimo de cardápio, 
A vem ocupando um lugar bastante solicitado dentro da 


"PERTENCE AOS VEICULOS AEREOS ? (S/N)! 


A ela, o vendedor deveria responder sim (S) ou não (N). 
Logo depois, viria outra pergunta com outro grupo de veícu- 
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los, e assim até ele responder afirmativamente, quando então o 
programa passaria a fazer as perguntas correspondentes ao gru- 
po de veículos escolhido. 

Uma outra alternativa seria aquela em que o programa pe- 
disse: ENTRE O CODIGO DO GRUPO (1,23...). O usuário 
responderia com uma tabela onde previamente estivessem rela- 
cionados os grupos com os seus respectivos números. Por 
exemplo: 


1. Avioes 
2. Caminhoes 
3. “Carros 
CTC. so cvs seis 
Ora, por que não juntar os dois casos em um? Teríamos, 
então, um menu como este: 


Menu de Veiculos 


1. Avioes 
2. Caminhoes 
3. Carros 


<< ENTRE O NUMERO ESCOLHIDO >> 


Neste exemplo ilustrativo, as opções de escolha são pou- 
cas (insuficientes, talvez, para mostrar a real necessidade do 
menu), mas imaginem se fossem mil itens, um supermercado 
por exemplo — seria essencial uma boa visualização. do agrupa- 
mento dos produtos. Através do menu, o usuário não só tem 
uma ampla visão das alternativas, como também ganha tempo, 
uma vez que não precisará responder a uma série de perguntas, 
geralmente inúteis, dependendo do que ele pretenda fazer. 
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Existe ainda uma outra vantagem: podemos executar sub- 
divisões em um submenu. No caso do vendedor de veículos, 
tínhamos, na primeira divisão, “aviões, caminhões, carros, etc.”, 
mas poderíamos querer que os caminhões se classificassem, 
por sua vez, em: “Scania, Mercedes, Ford, Chevrolet, etc.”, 
Seria muito mais fácil se, ao escolhermos a opção “caminhões”, 
aparecesse na tela um outro menu (este chamado de submenu ), 
no qual teríamos: 


MENU DE CAMINHOES 


Scania 
Mercedes 
Ford 
Chevrolet 


ts NO — 


ENTRE O NUMERO ESCOLHIDO) 





DETALHES SOBRE O PROGRAMA 


Nosso programa mostra como elaborar um menu, constan- 
do de oito opções, as quais iremos analisar mais adiante. Dare- 
mos ainda uma pequena explicação sobre os comandos para 
que ele possa ser adaptado a qualquer computador (foi elabo- 
rado com o BASIC do CP/M e por isso existem algumas dife- 
renças). 

O objetivo do programa é dar ao usuário a opção de adição 
e subtração de matrizes de m por n elementos, assim como fa- 
cilitar a edição na parte relacionada aos dados por ele executa- 
dos. 


No quadro de Comentários anexo, detalhamos a programa- 
ção linha por linha (ou grupo delas quando forem semelhantes). 
A expressão (L1,L2) indica intervalos de linhas, onde L1 é a 
linha onde começa o intervalo a ser explicado e L2 onde ele 
termina (ambas as linhas inclusive). Ao final de cada observa- 
ção correspondente a uma linha que já foi explicada em ou- 
tra linha anterior, devemos nos referir com: nnnn: *XXXX, 
onde nnnn é o número da linha a ser explicada e xxxx a linha 
onde foi previamente mencionada esta instrução. 

Como podemos observar no programa, a partir da instrução 
1280 teremos uma série de repetições de comandos. Portanto, 
nos limitaremos a comentar as diferenças de algumas passagens 
que julgamos de maior interesse. 

Na instrução 2060, temos uma mensagem ESTOU IMPRI- 
MINDO...., a qual ficará na tela enquanto o módulo de opção 
dois é executado. Isto é útil quando temos a impressora em ou- 
tro local e não temos condições de verificar seu funcionamen- 
to, ou então quando a impressora não está on line com o com- 
putador. Esta mensagem também ajuda aos menos experientes, 
aqueles que ficam desesperados quando a tela fica limpa e o 
computador aparentemente sem funcionar. É o caso das outras 
mensagens semelhantes que aparecem no vídeo (ESTOU CAL- 
CULANDO... etc). 

A partir desta instrução, vemos uma sequência de comandos 
LPRINT, que se diferenciam do PRINT por serem executados 
na impressora no lugar do vídeo: L PRINT = Line printer 
PRINT. 

No módulo três, temos a oportunidade de corrigir alguns 
dados que estejam errados, por falha na digitação ou na leitu- 
ra da fita ou disco (caso existam). 

É sempre útil poder voltar ao menu de opções. Neste mó- 
dulo três temos esta chance, colocando no lugar do valor da 
variável a ser corrigida uma letra M. Além disso, pergunta se 
queremos efetuar outra correção. Se a resposta for negativa, 0 
sistema também volta ao menu de opções. É 


O 





e Seu pedido pode ser feito 
por carta, indicando 
quais os números 
atrasados que você quer. 


mcioras 


e E não se esqueça de incluir 
o seu endereço para 
que nós possamos 

fazer a remessa. 


Aqui estão os nossos endereços: 


ALE) |] À Av. Presidente Wilson, 165 — grupo 1210 — Centro — Rio de Janeiro 


— RJ — CEP 20030 — Tels.: (021) 262-5259, 262-6437 e 262-6306. 





Rua Oliveira Dias, 153 — Jardim Paulista — São Paulo — 
SP — CEP 01433 — Tels.: (011) 853-7758 e 881-5668. 
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A(1,1) 
A(1,2) 
A(1,3) 
A(2,1) 


A(2,2) 
A(2,3) 
A(3,1) 
A(3,2) 
A(3,3) 


[8 
[O 





Figura 1 — Elementos das matrizes A e B (1) 


O módulo de opção quatro nos leva ao cálculo da matriz 
adição C =A+B, e o módulo de opção cinco nos leva ao cal- 
culo da matriz diferença C = A-B (ver figuras 1, 2,3 e 4). 

Poderíamos ainda ter uma única opção que englobasse os 
módulos quatro e cinco, denominada CALCULOS. Ao ser es- 
colhida, levaria a um submenu com as seguintes opções: 


C=A+B 
C=A-B 
C=A*B 
C=A/B 
DET A (determinante de A) 
DET B (determinante de B) 


ou run — 


ENTRE O NUMERO ESCOLHIDO) 


No módulo seis, temos a impressão da matriz resultante. 
Vemos na linha 6100 a utilização da instrução LPRINT 
USING “744447 Esta instrução nos dá uma formatação 
de oito inteiros (separados de três em três por uma vírgula, is- 
to é, mil, milhão e bilhão) e dois decimais seguidos de quatro 
espaços em branco. 


MM mMnanuaa 





Figura 2 — Elementos das matrizes A e B (2) 


No módulo sete, temos um ajuda-memória de rápida utili- 
zação, que nos permite ver como se deve responder a algumas 
perguntas formuladas pelo computador. 

E, por último, temos o módulo de opção oito. Dele consta 
uma mensagem de segurança para evitar a saída acidental do 
programa, o que resultaria na perda de todos os dados nele 
existentes. Isto pode ser verificado nas instruções 8090 e 8110, 
nas quais vemos que, para qualquer resposta diferente de S 
à pergunta da linha 8090, teremos um imediato retorno ao 
menu de opções. 





RODANDO O PROGRAMA 





Executando o programa com dados quaisquer (de acordo 
com as figuras 1, 2, 3e 4), vamos checar a resposta e o proce- 
dimento necessário. Depois de rodado, escolhemos a opção 
um, e logo aparecerá: 


“AS DIMENSÕES DE UMA MATRIZ SÃO: M LINHAS X N COLUNAS!!, 
“POR FAVOR ENTRE M,N?!! 


Comentários 


e (10,100) — Comentários de 
autoria e classificação do pro- 


grama. 

o (110,130) — Comentários do 
início do módulo de elaboração 
do menu. 

e 135 — APOS é uma variá- 
vel alfanumérica de ajuda para o 
operador, com uma dimensão de 
46 índices. Observação: cada 


e (180,240) — Escrevemos o 
menu em si, ou seja, a parte de 
visualização da escolha de uma 
opção, com uma tabulação de 
25 espaços. 

e 250 — O comando VTAB 20 
desloca o cursor 20 linhas para 
baixo, sem apagar o que estava 
anteriormente escrito na tela, 
“a não ser, é claro, o conteúdo 


até que um caráter seja entrado 
pelo terminal. Este caráter é al- 
ese r isso, e is se 
instrução » temos E$, on 
será armazenado o caráter entra- 
do. A vantagem desta instrução 
é que ela dispensa o uso de e (1000,1030) — Comentários 
URN ou depois de indicando o módulo de opera- 
entrado o caráter. Sua pe ne ção da opção número um. 
é que ela só aceita um ter e 1040-*140 


e 310 — Desvie para 140. Com 
esta instrução, nos protegemos 
de uma entrada não válida, já 
que, se isto acontece, ele volta à 
instrução de número 140, que 
repete o menu. 


uma das 46 variáveis alfanumé- 
ricas (indexadas) pode ter até 
255 elementos. 

e 140 — O comando HOME 
limpa o vídeo e coloca o cursor 
no canto pio esquerdo. 

o (150,/160) — Escrevemos e 
oo o título MENU DE 
OPÇÕES. O comando TAB(34) 


nos indica que haverá uma tabu- 
lação de 34 espaços antes de co- 
meçar a escrever. 

e 170 — Deixamos duas linhas 


” 


em branco. Observação: os “ : 
(dois pontos) indicam uma jun- 
ção de duas instruções, isto é, 
equivalem a um comando 
P em uma linha e outro na 
linha seguinte, interligados. 
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da linha na qual vamos escrever. 
Estas 20 linhas serão contadas 
a partir da linha onde se encon- 
trava o cursor na hora da execu- 


ção do comando. Por exemplo:, 


se O cursor se encontrava na 
linha 3, passará 
A instrução PRINT TAB(29) 


mandará escrever a 29 espaços: 


(a partir da esquerda) a mensa- 
gem entre aspas. 

e 260 — A instrução HTAB 55 
coloca o cursor na posição 55, 
isto é,a 55 espaços contando da 
esquerda para a direita na linha 
em que se encontra, sem apagar 
o que já existe no vídeo. 

o 270 — Esta instrução nos 
permite interromper o programa 


para a linha 23.º 


alfanumérico. 

e 280 — A instrução I=VAL 
(E$) significa que I recebe o va- 
lor numérico da variável E$. Co- 
mo em E$ armazenamos o nú- 
mero de opção em forma de ca- 
rater alfanumérico, ra O 
transformamos em ni ico. 


e 290 — A instrução ON IGO- 
SUB 1000,2000,3000, etc... na- 


da mais é do que uma única, 


instrução equivalente a: 
IFI-1 1000 
IF 1=2 GOSUB 2000 
IF 1=3 GOSUB 3000 
etc. 


e 300 — No caso de 1=8, des- 
vie para a instrução 8000. 


e 1050 — *(150,160). 
* 1070 - +250. 

e 1080 — + (150,160). 

e (1090,1270) — Vemos que 
alguns dos comandos usados 
neste intervalo já foram utili- 
zados e explicados anteriormen- 
te. Os outros são comuns a to- 


-dos os tipos de BASIC. 


e 1280 — Retornamos pela ins- 
trução 300, que não se cumpre, 
passando para a 310, que é um 
desvio para a instrução 140 (iní- 
cio do menu). 

e OBS — Para as explicações 
do comando LPRINT US! NG 


veja referência no módulo de 
opção seis. 
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Respondemos 3, 3 RETURN e a continuação será: 


ENTRE OS VALORES CORRESPONDENTES 
A(1,1) = 45 

DC ii), sms a 

CEC área era aa . 


Ao entrar"todos os valores da matriz A, o computador co- 
meçará a perguntar os valores da matriz B. Terminada a entra- 
da, voltamos ao menu de opções. 

Depois, apertamos a opção dois. Imprimimos os dados, e o 
programa retorna de novo ao menu (não se esqueça de ver na 
figura 1 os elementos das matrizes A e B). 


121.00 
987.00 
-6,498.00 
9,061.00 
129.00 
498.00 
646,154.00 
65,209.00 
4,453.00 


Figura 3 
— Elementos da 
matriz C=A+B 


, 
, 
, 
, 


a no ne a a a no 


(1 
(1 
(1 
(2 
(2 
(2 
(3 
(3 
(3 


NS DO + US DO US DO — 


Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 
Cc 


ou 





-31.00 
987.00 
-6,588.00 
8,887.00 
113.00 
366.00 
-6h44,8146.00 
-63,679.00 
4,435.00 


Figura 4 
— Elementos da 
matriz C=A-B 


ooOo909000090090 
q e, e, e e qm, 
“uu 
NO O O DO a td DO 
mn no nn no ne ne na 


1 
1 
1 
2 
2 
2, 
3 
3 
3 


“. u 





Agora vamos supor que queremos corrigir o dado B(3,1), 
que tem o valor original de 46, para 645500 (figura 2). Aperta- 
mos a opção três e aparecerá a pergunta VOCE DESEJA COR- 
RIGIR UM DADO QUE E DO TIPO: “ ” APS (1J)= VALOR, 
com lugar para entrar três dados. Para interpretar o significa- 
do da pergunta, devemos usar AP$= nome da matriz (À ou B) 
e os índices do elemento a ser corrigido: 1, J. 

Para corrigir B(3,1), respondemos B,3,1. Imediatamente 
aparecerá no vídeo: 


"QUAL E O VALOR DE B(3,1)!! 


A esta pergunta responderemos com 645500. 

À outra pergunta OUTRA CORREÇÃO (S/N) que vem a 
seguir, respondemos N, pois não pretendemos corrigir outro 
dado. Caso contrário, responderíamos S, e as perguntas seriam 
repetidas novamente. 

Ao responder N, voltamos ao menu e, para verificar a cor- 
reção feita, escolho a alternativa dois. 

Voltando automaticamente ao menu após a impressão, en- 
tro com a opção quatro para calcular a matriz C = A+B. Após 
o cálculo, retornamos mais uma vez ao menu de opções (ou 
púincipal), de onde agora escolhemos a alternativa seis para ver 
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os resultados da matriz C (ver figura 3). Feito isso, calcula- 
mos C= A-B a partir da alternativa cinco (ver figura 4). 

A opção sete fornecerá um pequeno resumo que aparecerá 
no vídeo por partes até que se aperte uma tecla qualquer para 
continuar. Para ter idéia do que aparecerá no vídeo, leia dire- 
tamente na listagem as instruções 7050, 7490. 

Finalmente aperto oito, leio a mensagem de segurança e res- 
pondo com S à pergunta DESEJA MESMO ABANDONAR 
(S/N), obtendo assim uma mensagem de FIM no centro da 
tela. Caso não queira abandonar o programa, aperto N. 

Note que este programa só permitirá usar matrizes de or- 
dem máxima 10, já que não existe instrução de dimensiona- 
mento capaz de liberar o uso de índices maiores. No caso de se 
desejar matrizes de ordem maior — 20, por exemplo —, esta 
instrução deveria ser acrescentada: 


135 DIM APO$S(46),A(20,20),8(20,20) 


a qual poderá ser de dimensões ainda maiores. 

Uma observação: APO$(46) deverá ficar constante sempre 
que modificada a instrução 135 (veja no quadro de Comentá- 
rios a linha 135). 


Heman Campero Lopez é estudante de Engenharia no Instituto de En- 
genharia Paulista. Participou de trabalhos nas áreas de processadores de 
textos, otimização, comercial-contábil, científica, gestão hospitalar etc. 
Conhece as linguagens BASIC, FORTRAN e Pascal e trabalha com os 
sistemas DOS e CPM, ambos disponíveis em seu Apple !l com 64 Kb. 


10 REM CEESERERSRESSAESESCERERSESEEANEARERAS 
20 REM * PROGRAMA DEMONSTRATIVO DE MENU COM £ 
30 REM £ UTILIZACAO DE OPERAÇÕES MATRICIAIS + 


40 REM & . 
SO REM & POR: MERNAN CAMPERO LOPEZ * 
60 REM & * 
70 REM EERSESLEKESESSEEECEREERASEANARTANtAS 
Bo REM 

90 

100 REM 

110 REM sosserererererades 

120 REM + MENU DE OPCOES + 

130 REM cesrereerererreres 

135 DIM APOS (46) 

140 HOME 

150 PRINT TAB(34) “MENU DE OPCOES" 

160 PRINT TAB(34)" " 

170 PRINT: PRINT 

180 PRINT TAB 
190 PRINT TAB 
200 PRINT TAB 
210 PRINT TAB 
TAB 


ENTRAR DADOS (MATRIZES) " 
VERIFICAR DADOS (IMPRESSORA) “ 
CORRIGIR DADOS" 
CALCULO DE C=A+B" 
CALCULO DE Cea-B” 
TAB RESPOSTA (C) P/ IMPRESSORA" 
TAB RESUMO EXPLICATIVO (PRGMA) “ 
TAB(25)"B. ABANDONAR O PROCESSO" 

VTAB Z0/PRINT TAB(29)"< ESCOLHA UM NUMERO 

O HTAB 55 

GET ES 

O I=VAL (ES) 
290 ON 1 GOSUB 1000, 2000, 3000, 4000, 5000, 4000, 7000 
300 IF I=8 GOTO 8000 
310 GOTO 140 
1000 REM 
1010 REM +esrercesesreereretes 
1020 REM + O DE OPCAO 1 + 
1030 REM ++sese+ ses srreres 
1040 HOME 
1050 PRINT TAB(14) “AS DIMENSDES DE UMA MATRIZ SAD: M LINHA 

S X N COLUNAS” 

1070 VTAB 10 
1080 PRINT TAB(30) “POR FAVOR ENTRE MN 1"; 
1090 INPUT M,N 
1100 FOR 1 = 1 TOM 
1110 FOR J = 1 TON 
1115 HOME 
1120 PRINT TAB(24) "ENTRE OS VALORES CORRESPONDENTES" 
1130 PRINT TAR(24)" u 
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3 PRINT TAB(24)" 


PRINT TAB(24) "ENTRE OS VALORES CORRESPONDENTES" 





VTAB S:HTAB 24 
PRINTºBC"S LS", 
INPUT B(I,J) 


> NEXT 9 


1276 
1280 


NEXT 1 
RETURN 

REM 

REM cerrrererer eres rerere 


) REM + MODULO DE OPCAO 2 + 


REM ererersre ese rre reter e 


HOME 


) VTAB 124HTAB 30 


PRINT“ESTOU IMPRIMINDO. . «« 
LPRINT TAB(19) "ESTES SAO DS ELEMENTOS DAS MATRIZES A E 
Bº 


) LPRINT TABC(19) 





3010 
3040 


3080 
3090 
3100 
3110 
3120 
31 


4000 
4010 
4026 
4030 
40840 
s0s50 
2066 
407% 


) LPRINT TABC(49) 





LPRINTILPRINT 
LPRINT TAB(11) 
LPRINT TAB(SO) 
LPRINT TAB(1O) 





FOR I=i TOM 


> FOR J=1 TO N 
2 LPRINTHAC" IIS", 


"pALPRINT USING "emana, muvça 

(1,0)5 

LPRINT TAB(4 

* MAN FECI 

NEXT 

NEXT 1 

LPRINTILPRINT 

RETURN 

REM 

REM ereerre pres rre era 

REM + MODULO DE OPCAO 3 + 

REM eerrrrree reset reter 

HOME 

PRINT TAB(21) "VOCE DESEJA CORRIGIR UM DADO QUE E DO TI 

PO: 

PRINT 4PRINTIHTAB 21 

PRINT"APS(I, J) =VALOR” 

VTAB 101HTAB 21 

PRINT"POR FAVOR ENTRE APS, 1,J 

INPUT APS, 1,9 

HOME 

PRINT TAB(Z7)"D DADO A SER CORRIGIDO E 1º 

VTAR S:HTAB 

PRINT APS "Cp Tpt, PIN) =vALOR! 

PRINTIPRINTIPRINT 

VTAB 22:HTAB 6 

PRINT"PARA VOLTAR AO MENU DE OPC! 
NO LUGAR DO VALOR 

VTAB 9:HTAB 27 

INPUT"VALOR DA VARIAVEL="; VS 

IF VS="M" THEN RETURN 

X=VAL (vs 

IF AP$="A“ THEN ACI,J)=X 

IF AP$=“B” THEN B(L,y)=X 

VTAB 15:HTAB 27 

PRINT"DUTRA CORRECAO (5/N) 

GET '5e 

IF S$="S" GOTO 3000 

RETURN 

REM 

REM corrrrerrr reter tras 

REM + MODULO DE OPCAO 4 + 

REM ereserrrere terra ars 

HOME 

VTAB 12:HTAB 27 

PRINT OU CALCULANDO C=A+B.... 

FOR I= 1 TOM 

FOR J=1 TO N 

CCL, JImACI SI +BCI,I) 

NEXT 

NEXT 1 





13pI="psLPRINT USING “ananm 














ENTRE A LETRA <M 








5 Co="A+B 








RETURN 


» REM 


REM serrrrrrtertrerererto 
REM + MODULO DE OPCAO 5 + 
REM cerrerrrrrrrrtre reto 
HOME 

VTAB 12:HTAB 27 
PRINT"ESTOU CALCULANDO 
FOR I=1 TO M 

J=1 TON 

J)-B(I,9) 











NEXT 1 
Ce="A-B” 


» RETURN 


REM + MODULO DE OPCAO é + 





REM eesrerrere teres r ra ss 


HOME 


5 LPRINTELPRINT 


RETURN 


» REM 


REM ertrrrser re re rea ts 
REM + MODULO DE OP 

REM +errrerer seres 

HOME 
APOS (1)= 
APOS (2)= 
APOS (3)= 


E PROGRAMA APA- 
"MENU DE OPCOES", E UMA" 
TA DE ALTERNATIVAS. 








) APOS (4) 
90 APOS (S)="ESCOLHENDO ALGUM NUMERO, LHE SERAO FEITAS 


) APOS(I1)= 


) APOS (I7)= 





APOS (6) ="ALGUMAS PERGUNTAS AS QUAIS DEVERA RESPON- 

APOS(7)="DER DA SEGUINTE MANEIRAS 

APOS (B) = 

APOS (9)="1. QUANDO DEVA ENTRAR 2 NUMEROS (POR EX. 

APOS (10) = "POR FAVOR ENTRE M,N » VOCE DEVERA 
ENTRAR OS VALORES DE "Nº SEPA —* 





APOS cIZ RADOS POR VIRGULA. 
APOS CI 

APOS (14)= 
APOS (15)= 


FINALIZADO ISSO APERTE <RETURN>, 


APOS (I6)= 

QUANDO SEJA PERGUNTADO UM UN 

APOS (18) = LOR (POR EX. “ENTRE OS VALORES Co- 

APOS C19)= RRESPONDENTES” E LOGO EM SEGUIDA O 
ELEMENTO DA MATRIZ), ESCREVA-O E COMO” 
SEMPRE APERTE CRETURN>. 





QUANDO FOR PERGUNTADO UM NOME OU UM 
DADO ALFANUMERICO, VOCE DEVERA ESCRE- 
VE-LO NORMALMENTE E LOGO DEPOIS APER- 
TAR <RETURN>. 





SE FOR PEDIDO PARA ENTRAR UMA SEQUEN 
CIA DE NOMES, NUMEROS, ETC..., NAD SE 
ESQUECA DE QUE ELES DEVERAD ESTAR SE-" 
PARADOS POR VIRGULAS. 

APOS (34) =" 


> APOS(IS)= 





APOS (36) = CASO VOCE COMETA ALGUM ERRO NA ENTRA- 
DA DE DADOS, (QUANDO TEM QUE RESPON- 
DER COM UM NUMERO E VOCE COLOCA ALGU- 
MA LETRA, OU ESQUECE DAS VIRGULAS PA- 
RA SEPARAR DADOS, ETC...), APARECERA 
UM ERRO DE ENTRADA DE DADOS. MAS NAO” 
SE PREOCUPE, O COMPUTADOR LOGO APOS" 
ESSE ERRO COLOCA UM SIMBOLO DE INTE-" 
RROGACAD INDICANDO QUE VOCE PODE" 
REENTRAR OS DADOS ANTES PEDIDOS. “ 








APOS (38) = 


APOS (39) =! 
APOS (40) = 
APOS (41) =” 
APOS (42)= 
APOS (43) =" 
APOS (44) =" 
APOS (45) = 
HOME 

FOR I=1 TO 20 
PRINT TAB(Z0) APOS(I) 
NEXT 1 

PRINTIPRINT 

GosuE 7800 

GET ss 

HOME 

FOR 1=21 TO 40 

PRINT TAB(Z0) APOS(I) 
NEXT 1 

PRINTIPRINT 

GOSUB 7800 

GET ss 

HOME 








2 FOR I= 41 TO 45 





8000 
8o1o 
gozo 
Bozo 
8040 
goso 





Boso 


8070 
8080 
Boso 





PRINT TAB(Z0) APOSCI) 
NEXT 1 

PRINTIPRINT 

BOSUB 7800 

VTAB 201 HTAB 331 PRINT“BOM PROGRAMA 
GET ss 
RETURN 

PRINT TAB(1O) APERTE QUALQUER TECLA PARA CONTINUAR 
RETURN 

REM +reresere resete re res 

REM + MODULO DE OPCAO & + 

REM errrerereser rare rates 

HOME 

VTAB 4 

PRINT TAB(10) "AD ESCOLHER ESTA DPCAO VOCE RESOLVEU SAI 
R DO PROGRAMA, CON 

PRINT TAB(10)"SEQUENTEMENTE APAGAR O CONTEUDO DA M 
EMORIA (DADOS), 
PRINT TAB(10) 
VTAB 181 HTAB 
PRINT“DESEJA MESMO ABANDONAR 7 (S/N) 
GET ss 

IF Ssc>"5" GOTO 14 

HOME:VTAB 12: HTAB 37:PRINT 

VTAB 24: HTAB E 

END 


EXISTENTES. 
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e ud MAIS SUCESSO PARA VOCÊ! 


Comece uma nova fase na sua vida profissional. 
Os CURSOS CEDM levam até você o mais moderno ensino 
técnico programado e desenvolvido no País. 








Métodos novos e inéditos de ensino garantem um aprendizado 

prático muito melhor. Em cada nova lição, apostilas ilustradas 

ensinam tudo sobre Amplificadores, Caixas Acústicas, Equalizadores, 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Cápsulas 
e Fonocaptadores, Microfones, Sonorização, Instrumentação de Medidas 
em Áudio, Técnicas de Gravação e também de Reparação em Áudio. 


E co 
CA Ene 


São mais de 140 apostilas com informações completas e sempre 
atualizadas. Tudo sobre os mais revolucionário CHIPS. E você 

recebe, além de uma sólida formação teórica, KITS elaborados 
para o seu desenvolvimento prático. Garanta agora o seu futuro. 


CEDM-20 - KIT 

de Ferramentas 
CEDM-78 - KIT 
Fonte de Alimentação 
Sv/1A. CEDM-35 KIT 
Placa Experimental 
CEDM-74 - KIT 

de Componentes. 
CEDM-80 
MICROCOMPUTADOR 
Z80 ASSEMBLER 


CEDM-1 - KIT de Ferramentas. CEDM-2 - KIT Fonte de Alimentação 
+ 15-15/1A. CEDM-3 - KIT Placa Experimental 

CEDM-4 - KIT de Componentes. CEDM.-5 - KIT Pré-amplificador 
Estéreo. CEDM-6 - KIT Amplificador Estéreo 40w. 





Você mesmo pode desenvolver um ritmo próprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado fácil. E 
para esclarecer qualquer dúvida, o CEDM coloca à sua disposição uma 
equipe de professores sempre muito bem acessorada. Além disso, você 
recebe KITS preparados para os seus exercícios práticos. 

Ágil, moderno e perfeitamente adequado à nossa realidade, os CUR- 
SOS CEDM por correspondência garantem condições ideais para o seu 
aperfeiçoamento profissional. 


EEE GR ÁTIS Es 


Você também pode ganhar um MICROCOMPUTADOR. 


Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 


Em poucos dias você recebe nossos catálogos de apresentação. 


Este CURSO, especialmente programado, oferece os 

fundamentos de Linguagem de Programação que domina o universo 
dos microcomputadores. Dinâmico e abrangente, ensina desde o BASIC 
básico até o BASIC mais avançado, incluíndo noções básicas sobre 
Manipulação de Arquivos, Técnicas de Programação, Sistemas de 
Processamento de Dados, Teleprocessamento, Multiprogramação e 
Técnicas em Linguagem de Máquina, que proporcionam um grande 
conhecimento em toda a área de Processamento de Dados 











— 


Avenida São Paulo, 718 - Fone (0432) 23-9674. 
CAIXA POSTAL 1642 - CEP 86100 - Londrina - PR 


[EEDM 


ijc CURSO DE APERFEIÇOAMENTO POR CORRESPONDÊNCIA 


Solicito o mais rápido possível Informações sem compromisso sobre o 


KIT CEDM Z80 
BASIC Científico l 


R EUA a ASS) SAIO ÇA OTA S6 IS ao cume asas a aba 

KIT CEDM Z80 || pe SO De. 
BASIC Simples. : MOMO sacos cris ads custa srt essa no sis gos 
Gabarito de Fluxograma DIR ese ss srs Des ud ES 50 coca avinos 
Eras CEDRO IWANE E ER RR a are NE TR sine 
Fitas Cassete com Programas. 

| Bairro. ........ ce... cos CEP....cc ser. SG 

Í Ms 











Menu, formatação de telas, mensagens claras, . . . veja como tudo isso é importante quando se trata de 
facilitar a interação usuário-computador em processos de treinamento e automação 





Facilite a interação 
homem - máquina 


xiste algo mais enfadonho e 
cansativo do que utilizar um 
sistema interativo em que a 
linguagem não é natural?O cursor 
pula na tela solicitando informações, 
ora numa linha já escrita, ora abaixo 
desta; algumas informações são 
solicitadas mais de uma vez; O processo 
de entrada no sistema é sempre o 
mesmo, independente do número de 
sessões de uso e experiência do usuário. 
Estes, entre outros aspectos, são 
altamente desestimulantes para um 
usuário não especializado, quando em 
interação com sistemas automatizados. 
Sabe-se que automatizar funções em 
escritórios leva a uma melhor 
produtividade, amplia a margem 
competitiva e fornece soluções à maioria 
dos problemas rotineiros enfrentados 
por trabalhadores de escritórios. Mas, 
para que estes quesitos sejam 
plenamente alcançados, é necessário um 
cuidadoso planejamento, no que diz 
respeito aos aspectos ergonômicos, os 
quais preocupam-se em acomodar 
ambientes e sistemas aos indivíduos, ao 
contrário do que normalmente é feito 
devido ao caráter de obrigatoriedade de 
utilização que é imposto ao usuário . 
leigo. 
É inevitável que uma parcela cada vez 
maior de indivíduos venha a manipular 
terminais como ferramenta de trabalho, 
com aumento de suas responsabilidades. 
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Portanto, o componente humano torna- 
se ainda mais valioso e deve ser objeto 
de preocupação crescente, visando a 
aperfeiçoar as condições que circundam 
seu trabalho. A Ergonomia, como 
campo de conhecimento que se 
preocupa em melhorar e adequar o 
ambiente de trabalho ao indivíduo, vem 
de encontro a estes objetivos. 
Estabelecer a interface homem-máquina, 
em sistemas interativos, significa 
projetar e desenvolver sistemas 
preocupando-se em como este será visto 
pelo usuário e como essa tarefa será 
executada. Neste enfoque, alguns 
cuidados no projeto e desenvolvimento 
do software que estabelecerá a 
comunicação usuário-computador 
devem ser tomados. 

Na elaboração de um projeto de sistema, 
quanto aos seus aspectos ergonômicos, 
duas regras gerais devem ser 
consideradas: distribuição de 
funcionalidade e consistência. 





FUNCIONALIDADE 





distribuição de funcionalida- 
de trata da alocação das 
diferentes funções de um 
sitema em relação às teclas de 
menus e de uma ou várias funções, 
mnemônicos e comandos. Refere-se 


também ao atual lay-out e projeto de 
tais menus, comandos e telas em geral. 
O projeto de telas de sistemas de 
automação de escritório e sua 
documentação constituem o ponto 
nevrálgico de uma boa aceitação do 
software. Isso ocorre porque o usuário- 
alvo certamente desejará trabalhar com 
um sistema dentro da sua linguagem 
comum, com o jargão de trabalho a que 
está habituado, ou seja, o mais próximo 
da realidade em que convive. Para isso, 
é necessário diálogo em linguagem a 
mais natural possível de forma a 
propiciar uma interação contínua que 
leve o usuário a ter a sensação de estar 
conversando com a máquina. 

Neste aspecto, algumas observações são 
importantes, tanto no que diz respeito 
ao conteúdo das telas como ao tipo de 
dado solicitado ao usuário. O formato 
das telas, por exemplo, deve ser 
projetado de forma a distribuir as 
informações longitudinalmente no 
vídeo, ao invés de imprensá-las no topo 
(primeiras dez linhas). As informações 
dispostas no vídeo devem ser agradáveis 
à leitura, o que é obtido observando- 

se margens à esquerda e à direita, 
deixando linhas em branco, destacando 
palavras-chave através de sublinhas, 
aspas ou negrito. 

Os comandos de utilização devem ter 
sintaxe simples, de preferência 
tomando-se mnemônicos retirados da 
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sua linguagem natural, para amenizar a 
barreira de uso de terminais ou 
equipamentos de automação de 
escritórios. Pois, para um usuário 
burocrático-administrativo 

não especializado utilizar um 
equipamento com o qual não está 
familiarizado, tanto sob os aspectos de 
funcionamento como os de linguagens 
de comando, é uma tarefa bastante 
complexa e até mesmo amedrontadora. 
Este usuário, em geral de nível médio, 
não tem como característica o 
domínio de línguas estrangeiras, as quais 
são comumente utilizadas na definição 
de comandos e manuais, gerando, por 
isso mesmo, uma rejeição ao software a 
ser utilizado. 


As mensagens do sistema para o usuário 
devem ser escritas visando a atender às 
expectativas e objetivos do mesmo 

e adequadas à audiência e situação. 
Determinar que informações devam ser 
colocadas numa mensagem, em cada 
situação, significa analisar o que pensam 
as pessoas que necessitarão dela e se há 
possibilidade de inferi-las do contexto. 
Se isso não for possível, a mensagem 
deve prover as necessidades, explícita ou 
implicitamente. 


As mensagens devem ser bem escritas, 
em linguagem coloquial, com grafia e 
pontuação corretas. A inexistência de 
pontuação e caracteres adequados à 
lingua portuguesa, como cedilha e 

til, que ainda se observa em certos 
terminais, dificulta a leitura e interação 
nos sistemas de comunicação homem- 
máquina. Outro aspecto a salientar é 
que a inexistência de caracteres 
minúsculos na geração dos sinais para 
vídeo não é substituída com sucesso 
pela técnica de inverse vídeo. 


Por outro lado, a solicitação de dados 
para operação ao usuário deve ser 

feita de maneira clara, precisa, simples 
e em pequeno número, sem exigir que o 
usuário seja obrigado a repetir os 
mesmos dados ao longo da tarefa. 
Depois de fornecidos, estes devem 
retornar como complemento a novas 
solicitações, quando necessário. 
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CONSISTÊNCIA 


segunda regra geral a ser 
aplicada no projeto de 
software, consistência, diz 
respeito ao estabelecimento 
de uma aproximação comum para fazer 
coisas. Por exemplo, usar sempre as 
mesmas teclas para as mesmas funções; 
colocar um sinal de reposta ou 
informações similares na tela, sempre na 
mesma posição; localizar a informação 
devolvida ao usuário, por uma ação sua, 
na próxima linha; dar sempre o mesmo 
significado lógico às convenções, tais 
como Insert ou Control-C. 
Outro aspecto que diz respeito à 
consistência é propiciar facilidades num 
sistema de processamento de textos o 
mais próximo possível das mesmas 
atividades feitas em situação não 
automatizada, pois isto implica em 
retreinamento mínimo. 
Sistemas de comunicação homem- 
máquina devem ser implementados em 
vários níveis, possibilitando ao usuário 
experimentar meios de atalhar certos 
passos de execução, levando-os direto à 
tarefa desejada. Isto diz respeito à 
técnica de projeto de menus ou 
equivalentes, pois usuários casuais ou 
menos experientes necessitam de maior 
número de telas para familiarizarem-se 
com os sistemas, evitando referir-se 
continuamente a manuais ou pessoal de 
suporte. 





DOCUMENTAÇÃO 


ace ao exposto acima, surge um 

novo problema: a 

documentação. Na maioria dos 

sistemas, esta é a maior 
barreira de seus usuários; e em sistemas 
interativos, onde o usuário não é 
necessariamente da área de Informática, 
o problema se agiganta. É preciso que os 
fabricantes dediquem maior atenção, 
tempo e dinheiro escrevendo 
documentação compreensível para o 
usuário. 


ção homem-máquina em sistemas de ins- 
trução assistida por computador. In: 
Congresso Nacional de Informática y 
Teleinformática, 1, Buenos Aires, 18 a 
22 de Abril de 1983. Anales, Buenos 
aca USUARIA, 1983. p. 5-16 a 
6-39. 

5) KOFFLER, R. - Ergonomics; the 
mental strain. Computer world 16(13A), 
March, 1982. 

5) LINDERMANN, Helena Vauthier. Os 
sistemas de futuro e seus ergonômicos. 
Boletim DC/CPD/UFRGS, 4(1) : 14-18, 
Jan. 1983. 

7) SILVA, R. C. B. — Nove princípios 
para software ergonômico; resumo técni- 
co. Rio de Janeiro, SCI, 1983. 





Uma boa documentação deve ser uma 
contribuição prática e clara dos vários 
critérios que são julgados importantes 
em vista das aplicações específicas e do 
que o usuário pretende para o sistema. 
Para isso, é necessário que os fabricantes 
se convençam da importância dos 
ergonômicos e que, sob este ponto de 
vista, engenheiros de marketing e de 
software são as melhores fontes de 
sistemas bem projetados. 
Concluindo, quer seja no projeto, 
desenvolvimento e implantação de 
sistemas ergonômicos, ou no que diz 
respeito a sua experimentação e 
documentação, o usuário, especializado 
ou não, deve ser o foco principal. Pois 
não só os primeiros contatos deste 
usuário com equipamentos e 
procedimentos, mas a utilização fácil e 
agradável de um software determinarão 
a sua boa aceitação e sucesso. m 
es 
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MS É FEITA 
PARA VOCÊ 
PARTICIPE COM 


SUA OPINIÃO 


Escreva-nos di- 
zendo qual a sua 
área de interesse, 
conte-nos tam- 
bém as suas expe- 
riências com seu 
micro, o que 
“você quer ver 
publicado em MS, o que você acha 
da sua MS, enfim, diga tudo que 
torne MICRO SISTEMAS ainda 
mais feita para você. 

E lembre-se: todo leitor que nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua opinião para Redação de 
MICRO SISTEMAS no Rio de 
Janeiro ou em São Paulo: Av. 
Presidente Wilson, 165/grupo 
1210 - Centro - CEP 20030 - 

Rio de Janeiro - RJ; Rua Oliveira 
Dias, 153 - Jardim Paulista - CEP 
01433 - São Paulo - SP. 








Se você usa o comando NEW, o programa sumiu, certo? Mas você pode trazê-lo de volta! 
Eis aqui o processo e um programa em linguagem de máquina para ajudá-lo 





Como 









programador bastante cauteloso, desses que têm o 

costume saudável de, vez por outra, gravar em 
disco magnético os estágios parciais da elaboração de um 
programa. No passado, porém, lembro-me de algumas ocasiões 
em que, devido a um imprevisto ou procedimento incorreto, 
eu acabava por ver eliminado da memória da máquina todo um 
árduo trabalho de algumas horas de programação. 

Um desses cruéis imprevistos é a já tão conhecida e temida 
falta de energia elétrica. Caso ocorra, se o programador não 
tiver uma cópia ou um backup das instruções contidas na 
memória do computador, só lhe restarão duas alternativas: o 
choro ou o suicídio (e o pior é que, seja qual delas for tomada, 
não poderá trazer de volta o trabalho perdido). Não há como 
solucionar este problema. O máximo que se pode fazer é 
prevenir-se contra ele, ou seja, na eminência de uma queda de 
energia pela proximidade de uma tempestade, tratar de 
preparar cópias de tudo quanto for necessário em algum tipo 
de memória, em fita ou em disco, que não seja volátil na 
ausência de eletricidade. 

Mas o culpado pela perda do programa também pode ser o 
próprio operador, que traído por uma atitude incorreta destrói 
tudo aquilo que ele mesmo criou. Eu mesmo, já por diversas 
vezes, fui vítima de um desejo de digitar o hediondo comando 
NEW, percebendo, logo após, a bobagem que havia feito. 

Digitar este comando ou outro equivalente, seja via teclado 
ou durante a execução de um programa, é uma coisa que 
eventualmente acontece, causando uma boa sensação de 
arrependimento ao programador. O que alguns programadores 
mais insipientes não sabem, porém, é que é bastante fácil 
recuperar da memória um programa que acabou de ser 
eliminado com o comando NEW. 

O propósito deste artigo é, portanto, explicar o 
procedimento a ser adotado para que isto possa ser feito e 
propor um pequeno programa em linguagem de máquina para 
os computadores da linha Apple que poderá, milagrosamente, 


inha experiência com microcomputadores fez com 
que eu me tornasse, com o passar dos tempos, um 
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(aparentemente) 
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ressuscitar um programa em BASIC que tenha sido eliminado 
da memória por um engano infeliz. Ainda que este tipo de 
acidente nunca tenha acontecido com você, creio que será 
interessante testar a rotina que proponho, como curiosidade 
inspirada pelo seu bonito efeito. 

Não pretendo entrar em maiores detalhes sobre o seu 
funcionamento, uma vez que, na Sidra publicada em MICRO 
SISTEMAS número 25 (outubro de 83, página 20), expliquei 
como o interpretador BASIC faz para armazenar as listagens 
dos programas em desenvolvimento. Caso você não saiba como 
funciona este processo, seria bastante útil uma consulta a este 
artigo. 


A CHAVE ESTÁ NO APONTADOR 


No processo de criação de cada linha de um programa que 
esteja sendo editado, o interpretador consome dois bytes para 
registrar um apontador para o endereço da próxima linha, dois 
bytes para registrar o número da linha, um número variável de 
bytes para registrar o conjunto de comandos da linha e, 
finalmente, um byte com o valor zero para indicar o fim da 
linha. Para determinar o final da listagem do programa, o 
interpretador marca três bytes sucessivos com o valor zero. 
Quando o comando NEW é executado, evidentemente o 
computador não sai apagando os bytes de sua memória para 
eliminar o programa; ele simplesmente vai ao princípio da 
listagem e marca os três primeiros bytes com o valor zero. 

Na verdade, os bytes que codificavam o programa original 
continuam inalterados na memória, mesmo que não sejam mais 
indicados pelos apontadores de listagem. A conclusão é 
simples: para recuperarmos o programa bastará restaurar estes 
apontadores para suas posições originais. 

Normalmente, dependendo do conteúdo dos bytes 103 e 
104, os endereços que contêm este apontador são os 
hexadecimais $0801 e $0802. Quando se usa NEW, eles 
assumem o valor zero, e quando temos algum programa na 
memória eles passam a conter um apontador para a segunda 
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linha do programa. Para restaurá-lo, basta encontrar o final da 
primeira linha do programa (marcada com um byte com valor 
zero) e colocar nos endereços $0801 e $0802 um apontador 
para o byte imediatamente seguinte ao último byte da primeira 
linha. 

Estando em monitor, este 


é um processo que pode 
feio ser feito manualmente; no 

entanto, podemos 
simplificar a tarefa criando 
um outro programa que 
faça isso automaticamente 
para nós. Este programa 
não poderá estar em 
BASIC, pois, sendo 
carregado a partir dos 
apontadores já 
mencionados, ele acabará 
por mutilar o programa 
que estamos tentando 
ressuscitar e não poderá 
recuperá-lo com perfeição. 
Teremos que usar um 


Seta endereço 
$0802 com o 
valor 508 


Seta O regis- 
trador Y com 
o valor $04 


Incrementa o 
registrador Y 


Lê o valor do 
endereço deti 
nido por S800+Y 





programa, 
preferencialmente, em 
igual à linguagem de máquina, 
zero este que seja carregado em um 
ques lugar da memória que não 
destrua a listagem que 
queremos recuperar. 
Usaremos 39 bytes, do 
endereço $0300 a $0324, 
que como já sabemos é o 
intervalo sempre utilizado 
ara pequenas rotinas em 
inguagem de máquina. 
Dito isto, vamos ao nosso 
programa, o milagroso, 
cujo fluxograma está na 
figura 1. Veja que ele foi 
elaborado para recuperar 
programas que estejam 


Seta endereço 
$801 com o va 
lor de (Y+1) 


Escreve a pala 


Figura 1 


H$0s 
t0802 
H$04 


$0200,Y 
H$0M 
$0307 


+0801 
H$g0 
$0321,Y 
$FDED 


H$UG 
40315 


$02FS 


$CFD4 
($03).Y 


Figura 2 
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308.326 , | 


G308- AB B3 SC AR Ba Cê 
g340- DB? BO 64 C9 FS Cê 
galt- SC 1 48 AQ 21 03 
aA318- 28 ED FD C& Da E 









sa DA DZ 





Igg DATA 168.9. 140,.2,8. 160,4, 206 
1183,0,8.201,0,208,248,200,1 
40,1,8,160,0,193,33,3,32,237 

12003, 200.192, 6,208 ,0454 96420 
3.210.207 206, 212, 207 

ig FORA = 268 TO S064 READ Bi 
POKE A.Bk NEXT & END 






















Figura 4 


registrados a partir do byte $0801, não funcionando para 
programadores que tenham o costume de alterar o valor dos 
bytes 103 e 104 que indicam o princípio de programas em 
BASIC. Para estes, bastarão pequenas modificações em alguns 
lugares do programa proposto para que possam obter o mesmo 
efeito que desejamos alcançar: fazer reviver programas mortos 
com o comando NEW. 

A listagem do milagroso está na figura 2. Ele já está 
montado e pronto para uso. Para carregá-lo, você pode usar a 
sequência de bytes registrada na figura 3, mas para o pessoal 
que ainda tem um pouco de receio em utilizar o programa 
monitor do Apple fiz um programa em BASIC, listado na 
figura 4, que, quando executado, monta na memória o nosso 
programa em linguagem de máquina. 

Carregue o programa e armazene-o em disco com o 
comando BSAVE MILAGROSO, A$300,L$26. Quando 
quiser testá-lo, crie um programa em BASIC qualquer, digite 
NEW para eliminá-lo, use BLOAD MILAGROSO para 
recuperar nosso programa em linguagem de máquina na 
memória e depois use CALL 768 para executá-lo. 
Imediatamente aparecerá a palavra PRONTO na tela para 
indicar que o programa em BASIC perdido já foi 
ressuscitado. Digite LIST e verifique: milagre!!, seu programa 
está de volta! 

Um último detalhe: o programa milagroso, por ser em 
linguagem de máquina, possui um tempo de execução muito 
pequeno. Por mais trabalhosa que seja sua execução, ela não 
deverá levar mais do que alguns segundos para escrever 
PRONTO, indicando que houve sucesso na recuperação. 

Caso, após você chamá-lo com CALL 768, o programa demore 
muito tempo para retornar, é porque ocorreu algum problema 
e, nesse caso, as chances de recuperação do programa perdido 

são bastante remotas. Cuide para que nada de errado aconteça. 


= 
[3 


Rudolf Horner Junior cursa Ciência da Computação na Unicamp e é 
sócio da Potencial Software, empresa que desenvolve programas 
especiais para microcomputadores em Campinas, SP. 
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Nos próximos 20 anos não 
se pode pensar em suspender a 
reserva de mercado na Infor- 
mática, sob pena de desenco- 
rajar, desde já, os investimen- 
tos nacionais no setor. Por esse 
motivo é preciso garantir no 
país essa proteção por tempo 
indeterminado e, se algum dia 
houver modificações nesse 
sentido, elas deverão ser fruto 
da própria evolução do setor e 
decididas após amplo 'sbate 
de todas as áreas interessadas. 

A declaração é do Secre- 
tário de Informática, Edison 
Dytz, em entrevista coletiva 
durante o VI Congresso Regio- 
nal/lll Feira Nacional de In- 
formática, realizados de 15 a 
20 de maio em Balneário Cam- 
boriu, Santa Catarina. 

Ele falou sobre o projeto 
de lei para o setor, que o go- 
verno pretende enviar ao Con- 
gresso Nacional ainda este mês 
de junho, e cujos pontos al- 
tos são a criação de incentivos 
para a área, a constituição da 
Comissão Nacional de Infor- 
mática e a transformação do 
Centro de Tecnologia para In- 
formática — CTI, de Campi- 
nas, em fundação. 

Dytz destacou ainda que a 
criação de incentivos fiscais se- 
rá um reforço à política de 
reserva de mercado em vigor — 
o novo projeto defende a sua 
manutenção — na medida em 
que constitui atração efetiva 
do capital brasileiro para o se- 
tor, produzindo, como resulta- 
do final, um avanço mais rá- 
pido, tanto na indústria de 
hardware como na de soft- 
ware. 

O titular da SEI acredita 
que a instituição da Comissão 
Nacional de Informática é um 
outro importante passo, pois 
trata-se de um órgão norma- 
tivo, em nível superior à SEI, 
formado por órgãos do gover- 
no e entidades do setor. À SEI 
caberá executar as decisões da 
Comissão. 

Dytz também afirmou que 
a reserva de mercado produziu 
grande avanço tecnológico no 
Brasil e, aprovado o novo pro- 
jeto, o progresso será ainda 
mais vertiginoso. A esse respei- 
to, ele demonstrou satisfação 
com a representatividade da 
indústria nacional na Ill Feira 
Nacional de Informática que, 
para ele, espelha bem o mer- 
cado brasileiro. O congresso de 
Santa Catarina também foi im- 



















Reserva continua, 
afirma Dytz no 
Congresso de SC 


portante, na opinião de Dytz, 
porque ajudou a despertar os 
empresários para a necessidade 
de envolvimento com a Infor- 
mática. 

O VI Congresso Regional 
contou com a adesão de 600 
inscritos oriundos principal- 
mente de Santa Catarina, Pa- 
raná e Rio Grande do Sul e, 
em menor quantidade, da Ba- 
hia, Minas Gerais, Pará, Rio de 
Janeiro e São Paulo. A Feira, 
visitada por aproximadamente 
40 mil pessoas, reuniu 40 fa- 
bricantes de equipamentos e 
empresas de serviços e soft- 
ware. Entre eles estavam a Co- 
bra, que lançou o microcom- 
putador Cobra 210 (veja maté- 
ria na página ),a Prológica, 
com o Sistema 700 e o Cetil, 
que mostrou o seu Sistema de 
Consulta a Cadastro através de 
um micro Magnex Manager | 
interligado via teleprocessa- 
mento ao Burroughs B2900 da 
matriz em Blumenau. A Itau- 
tec demonstrou os seus termi- 
nais de videotexto |-1060 e 
1-1061, em conexão com o Sis- 
tema da Telesp, enquanto a 
Cincom Systems levou à Feira 
o PC Contact, soft que permi- 
te o intercâmbio de dados en- 
tre micros compatíveis com o 
IBM PC e computadores de 
grande porte. 

Ambos os eventos foram 
promovidos pela SUCESU-SC, 
com o apoio da SUCESU-Na- 
cional e da SEI. 


(Osni Rodolfo Schmitz) 










































































Brízida 
Deixa a SEI 


lida 


Em ainero da despedida promovido pela 
Sucesu São lo, o Secretário de Informática, 
Joubert de Oliveira Brízida, fez um balanço das 
tividades desenvolvi 


em 
da Digibrás e as aplicações visa instalar 
de Informática. Em seguida, 
o ex-Secretário, que deixou o cargo pera servir 
como adido militar na embaixada do Brasil em 
Londres, ressaltou ainda a importância do Centro 
informática, insugurado em 




















A Prológica está lançando uma linha de acessórios para o CP-300 
que permitirá o uso de impressora, plotter, modem, unidade de disco, 
monitor de vídeo e joystick. Os novos acessórios são: Paralela 300, in- 
terface paralela para impressora; Serial 300, interface serial para ligar 
periféricos como modem, impressora, plotter e outros; Controlador 
300, controlador de disco flexível para até quatro unidades de 175 
kbytes cada; Joystick 300, acessório que possibilita maior performance 
nos jogos disponíveis; MV 300, monitor de vídeo de fósforo verde para 
aplicação profissional e comercial, e o Sistema Mestre 300, que permite 
o uso simultâneo de todos os acessórios da Prológica para esse equipa- 
mento. 


ser favorável à associação de empreses para o de- 
senvolvimento dos equipamentos, uma vez que, 

ele, duas ou três empresas fabricando 
superminis já seriam suficientes para o mercado. 
Sobre a Digibrás, o ex-Secretário informou que a 

















Sobre o projeto de lei, que deverá ser enviado 
ao Congresso Si et nr Be od 
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MICRO SISTEMAS e Abril Cultural no Videotexto 


Aproveitando a ocasião de seu 
aniversário, a Telesp lançôu, no 
início do mês de maio, uma 
série de novos serviços 
vinculados ao sistema 
Videotexto, entre eles a 
possibilidade de utilização do 
microcomputador como 
terminal de videotexto e e 
serviço TELESOFTWARE. 

A maioria dos fabricantes 
nacionais já estão lançando kits 
que possibilitarão a conversão 
de seus equipamentos em 
terminais do sistema da Telesp. 
Esses kits, alguns já disponíveis 
como o da Prológica, poderão 
ser adquiridos em lojas 
especializadas na revenda de 
micros, e são compostos de um 
programa para acesso ao 
Videotexto em disco ou fita 
cassete, modem e interface de 
comunicação RS 232C. 

Uma vez assinantes do 
Videotexto e tendo comprado o 
kit, os usuários de micros 


QuE é 
como FUNCIONA 





Na primeira seleção de 

material, já encontram-se 
disponíveis no 
TELESOFTWARE diversos 
programas interessantes, de 
autoria de frequentes 
colaboradores de MS como o 
Professor Antonio Costa Pereira; 
Ivan Camilo Cruz; Marcelo 
Renato Rodrigues; Daniel 
Augusto Martins; Jôneson 
Carneiro de Azevedo; Heber 
Jorge da Silva; Francisco 
Bezerra; Paulo Sérgio Gonçalves; 
Hendy Yabiku; Armando 
Cavanha Filho e Lawrence 
Falconer King. 

Outra novidade apresentada 
foram os “olhões””, terminais 
públicos através dos quais 
qualquer pessoa pode ter acesso 
gratuito às informações do 
sistema. Hoje já existem 13 
terminais públicos instalados em 
São Paulo, nos seguintes locais: 
Shopping Center Eldorado; 


0s proGRan 
. - CANAL LIVRE 


passam a ter acesso também ao 
TELESOFTWARE. Este serviço 
comporta um banco de 
programas, voltados para áreas 
diversas e armazenados na 
central do Videotexto, que, 
além de operados, podem ser 
copiados pelos usuários do 
sistema em seus próprios 
disquetes ou fitas. 


Um dos principais fornecedores 
de serviço do sistema, a SEI — 
Sistemas Eletrônicos de 
Informação, divisão da Abril 
Cultural voltada para a atuação 
no campo da Informática, veio 
buscar em MICRO SISTEMAS a 
aliada para este 
empreendimento pioneiro. 
Assim, o usuário encontrará nas 


páginas da SEI/MICRO 
SISTEMAS diversos programas 
de uso pessoal, educativos, 
administrativos, utilitários e 
jogos, todos cedidos e testados 
pela revista. E mensalmente 
novos programas serão 
incorporados ao Telesoftware 
após publicação em MICRO 
SISTEMAS. 


Shopping Ibirapuera; Shopping 
Center Norte; Biblioteca 
Municipal Mário de Andrade; 
Centro Cultural de São Paulo; 
Faculdade de Economia da 
USP; Sesc Pompéia; 

Sesc Vila Nova; loja da Telesp 
da Rua 7 de Abril e na sede da 
Companhia na Rua Martiniano 
de Carvalho. 


STRINGS 


Xe A Danvic está oferecendo aos compradores do seu novo equipamento 
Caçula Dual um treinamento de uma semana para operação do micro. O 
Dual tem dois microprocessadores: Z80A, de oito bits, e 8080, de 16 
bits. E para estimular as vendas a nível nacional, a empresa está fazendo 
a pré-seleção de seus futuros revendedores, de forma a comercializar os 
micros em todo o país a partir de julho. X Mais novo fornecedor de pro- 
dutos de Informática em São Paulo, a Monolith 2001 também desenvol- 
ve software e acaba de concluir o programa Análise de Investimentos e 
Financiamentos, para equipamentos da linha Sinclair, com 16 kbytes. A 
empresa fica na Rua Augusta, 1371 — sobreloja 7, tel.: (011) 268-4370. 
+ A Brascom fechou negócio para a venda do seu microcomputador 
BR 1000 ao Laboratório de Subsistemas Integráveis da USP. Na mesma 
universidade já existe um outro BR 1000 instalado no Departamento de 
Engenharia. Além de São Paulo, os microcomputadores da Brascom 
também estão sendo usados pelas universidades de Pernambuco, Ceará, 
Joinville e pela Faculdade de Administração e Economia de Curitiba. x 
A Plajet, Indústria e Comércio de Plásticos Ltda. já está produzindo fi- 
tas para videocassete. Com 120 min. de duração e formato VHS, as no- 
vas fitas comercializadas sob a marca Ferrite terão uma produção inicial 
de 100 mil unidades (80% para exportação) e deverão custar, no merca- 
do interno, 5 a 10% menos que as similares importadas. X A SID foi a 
empresa escolhida pela Tecnologia Bancária, responsável pela implanta- 
ção do Banco 24 Horas, para produzir as primeiras 50 unidades nacio- 
nais das máquinas ATM (Automated Teller Machine). Assim, em breve, 
o número total de cabines do Banco 24 Horas passará de 22 para 72, 
estendendo-se de São Paulo, Rió de Janeiro e Curitiba, onde já opera, 
para atingir também Belo Horizonte e Porto Alegre. As novas máquinas 
fabricadas pela SID terão um sistema de voz que orientará os usuários. 
X A Cincon Systems do Brasil colocou no mercado o PC Contact, um 
novo software para ligação em tempo real entre microcomputadores 
que emulem terminais IBM com equipamentos de grande porte. O PC 
Contact está sendo comercializado com exclusividade pela própria Cin- 
com. Maiores informações pelo tel.: (011) 815-6188. x A SAD — Siste- 
mas de Apoio à Decisão firmou contratos de assessoria com a General 
Motors e a Copersucar. Na GM, vai treinar 200 executivos da gerência 


média e na Copersucar vai ajudar na implantação da Informática em 70 
usinas. A SAD também vai assessorar a Alcoa, a Brasil Seguros, o Lloyd's 
Bank, a Brasilit, a empresa Mamoré, do grupo Paranapanema, e a Filtro- 
na, fornecedora da Souza Cruz. X O SENAC de São José do Rio Preto, 
São Paulo, em conjunto com a Proansi — Empresa de Consultoria de 
Sistemas, da mesma cidade, abriu seu laboratório de Informática, onde 
os alunos desenvolverão aulas de Informática e de formação de técnico 
em Contabilidade. xt Novo espaço para o debate dos temas ligados à In- 
formática: a Folha do Comércio, jornal da Associação Comercial do Pa- 
raná, está publicando regularmente uma página com notícias sobre pro- 
dutos e eventos da área. X A Microdigital lançou o Programa Microedu- 
cação, que vai fornecer às instituições de ensino facilidades para adqui- 
rir equipamentos e apoio técnico e didático sob a forma de literatura e 
software. Os interessados devem contactar a empresa, à Rua do Bosque, 
1234, CEP 01136, tel.: (011) 825-3355, São Paulo — SP. X Auditoria e 
Segurança em Processamento de Dados e Software dos Computadores 
Nacionais são os seminários que o IBAM está promovendo para a segun- 
da quinzena do mês de junho, em sua sede no Rio de Janeiro. X* Outro 
seminário previsto para o final deste mês é o que a Servimec vai realizar 
no seu Centro Experimental de Informática, sobre o tema Auditoria 
Efetiva na Área de Sistemas. k A software house carioca Informatic Ser- 
vice está agora desenvolvendo aplicativos para micros com o sistema 
operacional CP/M, em configurações de 48 ou 64 kb de RAM e uma ou 
mais unidades de disquetes de 5 1/4" ou B”, com ou sem impressora. O 
telefone é: (021) 221-9720. X O livro What's Where in the Apple, co- 
nhecido manual de software básico desse equipamento, está sendo tra- 
duzido e em breve terá sua versão em Português. A edição está sendo 
patrocinada pela Unitron, fabricante do AP ||. *'A ACI — Assessoria de 
Comunicação Integrada acaba de associar à Hill and Knowiton Inc., em- 
presa norte-americana do mesmo ramo. Pelo acordo, a Hill and Knowl- 
ton passa a deter 50% do capital da ACI, iniciando" atuação conjunta 
com a firma brasileira. x Já está disponível a 32 edição do livro Aplica- 
ções Sérias para TK 85 e CP 200, de Délio Santos Lima. O livro custa 


Cr$ 9 mil e pode ser obtido junto à Micron Eletrônica: Av. São João, » 


74, CEP 12200, tel.: (0123) 22-4194, São José dos Campos — SP. 
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Informática 84: 
os preparativos 
do grande evento 


Onde estamos, para onde va- 
mos. Este é o lema do Informá- 
tica 84, o grande evento anual 
da indústria brasileira do setor, 
que reune o XVII Congresso Na- 
cional de Informática e a IV Fei- 
ra Internacional de Informática. 
O evento, que será realizado no 
Rio de Janeiro, de 5 a 11 de no- 
vembro, no Riocentro, foi anun- 
ciado à imprensa no dia 10 de 
maio, no Terrasse Club, no Rio, 
pelo presidente da Comissão Or- 
ganizadora, Erwin Nettesheim, e 
pelo presidente da SUCESU-Na- 
cional (promotora do evento), 
Hélio Azevedo. 

O XVII Congresso foi estru- 
turado em torno dos seguintes 
assuntos: Seções Técnicas; Infor- 
mática para Executivos; Infor- 
mática Aplicada; Fórum de De- 
bates; 1984 — O Emprego da In- 
formática; Mostras Paralelas. 

As Seções Técnicas, segundo 
o Presidente Nettesheim, “serão 
voltadas para analistas de siste- 
mas e programadores, ou para 
pessoas de outras áreas que 'en- 
tendam” tanto quanto estes pro- 
fissionais”. Os termas abordados 
serão: Administração e Planeja- 
mento de Informática; Automa- 
ção de Escritórios e Redes Lo- 
cais; Automação Industrial e 
Controle de Processos; Metodo- 
logia de Desenvolvimento de Sis- 
temas e Programas; Microeletrô- 
nica e Projetos de Hardware; Pro- 
cessamento Distribuído e Redes 
de Comunicação de Dados; Téc- 





nicas Futuras de Informática e 
Uso de Mini e Microcomputado- 
res; entre outros. 


Este ano, a Comissão Organi- 
zadora apresenta uma novidade 
para a IV Feira: um sistema iné- 
dito de distribuição das áreas de 
exposição, que visa “uma fluên- 
cia racional dos visitantes, dire- 
cionando-os aos estandes de seu 
interesse, facilitando assim a cir- 
culação destes e os contatos en- 
tre os expositores”. 


Os organizadores calculam 
que este ano mais de 300 mil 
pessoas visitarão a Feira, cuja 
área destinada aos exposttorgs 
será sumprior a 22.000 
4.700 m* a mais que o total co- 
mercializado no Informática 83, 
em São Paulo. 


Para o presidente da Comis- 
são Organizadora, as vendas es- 
ão: sendo um sucesso: “Já fo- 

comercializados todos os 
12000 mé do Pavilhão de Ex- 
posições a 48 empresas.” E co- 
mo a expectativa, ainda segundo 
Nettesheim, é de reunir mais de 
30 expositores, restam 10.000 

a serem comercializados ao 
restante dos expositores nas áreas 
que sobram: Pavilhão Central e 
passarelas contíguas ao Pavilhão 
de Exposições. Certamente será 
uma feira de extremos, com al- 
guns gigantescos estandes ocupa- 
dos pelos expositores nobres e 
centenas de micro-estandes para 
as microempresas. 





Micro News vai ao cliente 


A loja Micro News, do Rio de Janeiro, resolveu botar o micro 
na rua, e para tanto já conta com uma equipe de oito representan- 
tes externos, encarregados de levar os serviços e equipamentos para 
demonstração diretamente aos seus clientes, em suas próprias em- 


presas. 


Internamente, a loja continua atendendo os usuários da micro- 
informática, oferecendo os equipamentos das linhas Sinclair, TRS- 
80 e Apple, assim como software aplicativo (inclusive desenvolvido 
pelos próprios técnicos da loja), periféricos, suprimentos, livros e 
revistas da área. A Micro News fica na Rua da Assembléia, 10, gru- 
po 3.317, Centro, tel.: (021) 252-9420, Rio de Janeiro, RJ. 





AP II no Cirandão 


A Unitron acaba de colocar à disposição dos usuários do AP Il um 
software que permite a interligação desse equipamento ao Cirandão, 
nova versão, agora aberta ao público em geral, do Projeto Ciranda, da 
Embratel. 

O Cirandão irá atuar a nível nacional, para usuários de equipamentos 
de várias linhas, que passarão a dispor de uma biblioteca de software, 
além de serviços como correio eletrônico e classificados, entre outros. O 
novo serviço da Embratel deverá entrar em funcionamento a partir do 
segundo semestre deste ano. 





PC-1500 RP, novo 
pocket da Sharp 


Com novos recursos de im- 
pressão e armazenamento de 
dados, a Sharp está lançando a 
calculadora científica progra- 
mável PC-1500 RP, o novo pro- 
duto de sua linha de pocket 
computers. Pela sua portabili- 
dade e tamanho, a PC-1500 
RP é específica para quem 
executa tarefas fora do escritó- 
rio, podendo, no entanto, ser 
utilizada nas mais diversas apli- 


Pesando 900 gramas, a má- 
quina é constituída de uma 
unidade de bolso com visor in- 
tegrado e de uma interface 
com impressora e saída para 
gravação em cassete. Sua me- 
mória é de 3,5 kb de RAM, 
com módulo de 8 kb RAM do 


tipo tomada, e utiliza uma ver- 
são de BASIC aperfeiçoada. O 
microprocessador é de 8 bits, 
o qual permite um rápido pro- 
cessamento de dados a um bai- 
xo consumo de energia. 

O visor, de cristal líquido, 
é uma matriz minigráfica de 
7 x 156 pontos e tem capaci- 
dade para 26 dígitos. Com o 
uso do cursor, no entanto, po- 
de-se conseguir uma linha de 
até 80 caracteres. 

A impressora do novo mo- 
delo é um traçador de gráficos 
inteligente, que imprime até 
36 caracteres por linha, confor- 
me o tamanho de letra esco- 
Ihido (são nove tamanhos), em 
quatro direções e a quatro co- 
res diferentes (verde, vermelho, 
azul e preto). O papel utiliza- 
do é do tipo comum. 





Itaú reafirma automação 


Na décima reunião do Ill Pleninco — Plenário da Indústria e Comér- 
cio, realizado em meio pela Associação Comercial do Rio de Janeiro, o 
Banco Itaú promoveu o convênio de garantia de cheque estrela que vem 
realizando com mais de 15 mil empresas do comércio, indústria e pres- 
tação de serviços. Para cheques que ultrapassem o valor da garantia, a 
consulta é feita por telefone, diretamente com o centro de consultas do 
banco. Segundo Hélio Amaury Minozzo, gerente da Divisão de Comer- 
cialização de Serviços RJ, isto só está sendo possível graças ao sistema 
Itautec, que interliga todas as agências eletrônicas da rede. 


Interface para linha Sinclair 


A Teknológica, de Porto Ale- 
gre, acaba de lançar a interface 
TL 85 que, acoplada ao conec- 
tor de expansão dos TKs 83 e 
85 permite o acionamento, di- 
retamente pelos comandos do 
BASIC (LPRINT, LLIST e 
COPY), de quaisquer impresso- 
ras ou máquinas de escrever 
adaptadas com comunicação pa- 
ralela Centronics. 

A TL 85 possibilita a geração 
direta pelo teclado dos caracte- 
res ASCII, inclusive letras minús- 
culas, caracteres específicos da 
língua portuguesa e caracteres 
de controle para impressoras. A 
versão com Editor — TL 85-E — 
possui um editor de textos de- 
senvolvido pela Teknológica e 
gravado em EPROM que gera 


textos que podem ser armaze- 
nados em cassete e posteriomen- 
te impressos ou editados. Entre 
as suas principais características 
destacam-se a separação silábica 
dentro das regras da língua por- 
tuguesa, ajuste automático das 
margens verticais e horizontais, 
parágrafos, negritos e sublinha- 
mento automático, ajuste de es- 
paçamento, definição de campos 
variáveis para mala direta. 

A Teknológica também ofe- 
rece interface de impressora pa- 
ralela para o CP-300, expansão 
de EPROM para o TK-85, cartão 
de impressora para computado- 
res da linha Apple. Maiores infor- 
mações na Av. São Pedro, 1062, 
tel.: (0512) 42-8549, Porto Ale- 
gre — RS. 
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Proteger programas, 
não o software 


A proteção legal deve recair 
apenas sobre os programas de 
computador e não sobre o soft- 
ware, conceito este bem mais 
abrangente, que inclui desde a 
especificação funcional (o que o 
programa faz), a documentação, 
o programa em si, e até o 

do usuário. 

Essa foi a posição que o 
Brasil levou à última reunião da 
Organização Internacional de 
Propriedade Intelectual — 
ONPI, recentemente .realizada 
em Canberra, Austrália, e que 
obteve grande repercussão entre 
os participantes do encontro. 

A delegação brasileira, che- 
fiada pelo embaixador do Brasil 
na Austrália e integrada por 
Francisco Eduardo Rego Rama- 
lho, representando a Assespro, e 
por José Antonio Faria Correia, 
da Associação Brasileira de 
Propriedade Intemacional — 
ABPI, também contestou a 
opinião — predominante entre 
os delegados dos países desen- 
volvidos — favorável ao aprovei- 
tamento, mediante adaptações, 
da atual legislação de direitos 
autorais (copyright). 

Segundo Ramalho, que é 
diretor de software da Asses- 
pro-Nacional, a tese do copy- 
right saiu bastante abalada pelo 
questionamento dos participan- 
tes, sobretudo da delegação 
brasileira que, segundo ele, teve 
“uma participação bastante 
agressiva”. Outros mecanismos 
de proteção normalmente invo- 
cados, sobretudo nos EUA, 
como a marca, a licença com 
base no segredo comercial (trade 
secret) e a patente também se 
mostraram ineficazes ou pouco 
apropriados. 

Após definir o programa 
como “o conjunto organizado 
de instruções capaz de dirigir 
máquinas automáticas de pro- 
cessamento de informações, 





para fazê-las funcionar de modo 
e para fins determinados”, e de 
considerá-lo como um “insumo 
estratégico”, uma “ferramenta 
para ativar a economia dos 
países”, a delegação brasilei- 
ra propôs encarar-se os progra- 
mas como uma peça de uma 
máquina, um bem econômico 
suscetível de exploração comer- 
cial e não como propriedade 
intelectual. 


A tese brasileira recebeu o 
apoio unânime dos países em de- 
senvolvimento, conta Ramalho, 
mas foi vista com reservas e até 
mesmo combatida pelas nações 
industrializadas, em especial os 
Estados Unidos, que já dispõem 
de um grande acervo de pro- 
gramas a proteger. Como o 
copyright tem sido o principal 
mecanismo de proteção utiliza- 
do por esses países, eles temem 
ficar desprotegidos caso a ONPI 
(órgão das Nações Unidas) deixe 
de reconhecer a validade do 
copyright para esse caso. A 
grande maioria das nações, con- 
tudo, apoia a posição brasileira, 
enquanto uns poucos países do 
oriente, notadamente Cingapura 
e Coréia, optam pela “pirataria 
deslavada”, livre de qualquer 
espécie de proteção. 

A reunião de Canberra, ape- 
sar do clima de discussão 
política que a envolveu, teve 
caráter eminentemente técnico, 
com o objetivo de fornecer sub- 
sídios a um documento amplo e 
que conte com o apoio da maio- 
ria dos . países e organizações 
membros da ONPI. Com base 
nas conclusões técnicas desse en- 
contro, a ONPI irá realizar, ain- 
da este ano, uma nova reunião 
para examinar os aspectos jurí- 
dico e político da questão, 
quando então partirá para a ela- 
boração do documento defini- 
tivo. 





Automação de escritórios 
é destaque na 11º FUSE 














Compumicro: 


Experiência 
e atendimento 
personalizado 


“A Compumicro não é uma 
loja. Seguimos uma filosofia — 
conseguida através da experiên- 
cia de nosso trabalho em outras 
lojas — de que um ponto de 
venda que ofereça desde calcula- 
doras, TK, DGT, até micros de 
16 bits não pode garantir um 
bom atendimento ao cliente. 
Por isso, a Compumicro tem 
uma faixa específica de clien- 
tes, atendidos de preferência 
com hora marcada. O cliente 
tem conforto e tranquilidade 
para passar até três horas assis- 
tindo a uma demonstração ex- 
clusiva de um sistema”. Assim 
Ernesto Marques Camelo, um 
dos sócios da Compumicro, de- 
fine a empresa, situada no Cen- 
tro do Rio de Janeiro, aberta em 
janeiro desse ano. 

Os produtos oferecidos pela 
Compumicro são: Unitron (“o 
Apple cujo fabricante nos inspi- 
ra maior ' confiança”), Nexus 
(''da linha de 16 bits, a Scopus 
foi escolhida por ser uma em- 
presa apta a acompanhar a evo- 
lução dos produtos IBM”) e im- 
pressoras Elebra, Elgin e Scrit- 
ta. Nenhum micro TRS-80, pois 
“é uma linha que já morreu”. 

Ernesto Camelo explica que 
os PC-likes têm nas organiza- 
ções de grande porte (bancos e 
financeiras) e na área de siste- 
mas (centros de processamento 
de dados) os seus grandes com- 
pradores: “os primeiros comple- 
mentam suas necessidades com 
o PC nacional para evitar pro- 
blemas com a fiscalização, e os 
segundos aceitam agora a neces- 
sidade de substituição de termi- 
nais por micros, principalmente 
quando são de tecnologia IBM”. 

As vendas são dirigidas, co- 
mo se pode observar, a um pú- 
blico específico: “No 119 andar 
de um edifício é raro entrar in- 
cautos. As pessoas que nos pro- 
curam vêm geralmente através 
da propaganda cliente a cliente. 
Temos também uma equipe de 
vendas externa, a publicidade 
em veículos adequados e um 








bom número de clientes e con- 
tatos do tempo em que traba- 
lhamos na Computique e na 
Clappy”. 

Mas seja o cliente uma pe- 
quena, média, grande empresa 
ou um profissional liberal, Er- 
nesto garante que ele já chega 
à Compumicro sabendo qual o 
problema que pode ser resolvi- 
do com a ajuda do micro. A 
equipe então analisa e deter- 
mina o tipo de sistema adequa- 
do ao cliente e faz a demonstra- 
ção. “Quando não podemos 
atender às necessidades do clien- 
te, pedimos desculpas e indica- 
mos onde ele deve ir”. 

Os programas também são 
demonstrados ao cliente. Se ele 
quiser, a Compumicro desenvol- 
ve um software específico para 
ele, mas “preferimos selecionar 
um pacote que já exista no mer- 
cado. É como comprar um ter- 
no na loja e fazer um no alfaia- 
te: pode ser que no comprado 
pronto a perna da calça fique 
um pouco mais justa que o 
ideal, mas a diferença de preço 
compensa. Um sistema desenvol- 
vido sob encomenda custa mais 
que 50% do preço do equipa- 
mento e hoje já existem software- 
houses especializadas que su- 
prem muito bem o mercado”. 

Quanto à assistência técnica, 
Ernesto segue um pensamento 
que sempre defendeu: ela deve 
ser prestada pelo fabricante e 
não pelo revendedor. 

Quanto às formas de venda, 
além das tradicionais, a Compu- 
micro oferece uma nova modali- 
dade: o aluguel com opção de 
compra. “Vendemos o equipa- 
mento à Rent-a-Type (empresa 
de aluguel) e ela o aluga ao 
cliente. As prestações são fixas 
(o que é uma vantagem em re- 
lação ao leasing) e variam de 12 
a 18 meses”. 

A Compumicro Informática 
Empresarial Ltda. fica na Rua 
Sete de Setembro, 99/119 andar, 
tel.: (021) 224-7007, Rio de Ja- 
neiro, RJ. 


De 20 a 24 de junho estará se realizando em São Paulo, no pavilhão 
de exposições do Anhembi, a 112 FUSE — Feira Internacional de Uten- 
sílios e Serviços de Escritório, que vai reunir cerca de 180 empresas de 
Informática, Telecomunicações, Mobiliário e fornecedores de serviços e 
materiais. 

O ponto alto este ano será, sem dúvida, o setor de automação de 
escritórios, em virtude das grandes modificações que as novas técnicas 
deverão em breve provocar no perfil desse ramo de atividade, com a eli- 
minação dos processos burocráticos e de circulação de papel, liberando, 
assim, a mão-de-obra para tarefas mais criativas. Paralelamente à mostra 
serão realizados seminários com especialistas internacionais no assunto. 
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Aplicativos CCE 


Através de acordo com a Intelligent Software, dos EUA, a CCE pas- 
sou a comercializar programas aplicativos, entre eles, o Supervisicalc 
(planilha eletrônica de cálculos), a Janela Mágica (processamento de 
textos) e Controle Financeiro. Os programas vêm acompanhados de ma- 
nual em Português e custam em média 8 ORTN. Informações pelo a 
(011) 265-5344, São Paulo. 2 
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Quer um programa que o livre dos maçantes cálculos de volume de figuras 
geométricas? Aqui está ele, para o seu TRS-80 modelo | ou [ll 


Cálculo de Volumes 





I 
DD MURDER DD DD E DI 


15 "xxx CALCULOS DE VOLUMES bndadod 
20 "xxx POR HEBER JORGE DA SILVA — BRASILIA-DF, MARCO/83 xxx 
DE MEDEIROS DD DD E 
28 REMeX MENU PRINCIPAL 

30 CLS:PRINTOAS4, CHRS 
OO: NEXT 

40 CLS:PRINTTAB(20)“xm MENU ux725PRINTTAB(S0)“x*% CALCULOS DE VOL 
UMES xx PRINT 








);7*m CALCULOS DE VOLUMES xx72FORD=1TOLS 





30 PRINT” 1 — Cubo 97 - Cone”:PRINT” 2 - 
Paralelepipedo 10 - Tronco de Cone“:PRINTO 3 - Pris 
60 PRINT” 4 — Piramide 12 - Setor Esferico”:P n 
: RINT”O 5 - Tronco de Piramide 13 - Zona Esferica“:PRINT” EFICIÊNCIA 
é - Cunha 14 - Zona Esferica (2 bases)” 
E] 70 PRINT 7 Cilindro 15 - Cunha Esferica”: SERIEDADE 
RINT” 8 - Tronco de Cilindro 16 - Elipsoide” 
80 PRINTESPRINT 
90 PRINTTAB(15)““;2INPUTYS EL ECIONE “;QFIFOLIORQ)VISTHEN 
920 
100 GOSUB970:0NAGOTOL LO, 120,140,160,480,210,230,240,250,260,280, 


290,300,320,330,340 

110 PRINTOO, “VOLUME DO CUBO“:GOSUBISO:PRINTOSSS, “a”: GOSUBBHO:V=A 

CasG0TOB640 

120 PRINTOÍZB, “VOLUME DO PARALELEP IPEDO”:GOSUB3Z0:POKEP+428,99:P 

OKEP+óié, PB:POKEP+660,972PRINTOZO04,““:GOSUBBBO:GOSUBBPO:GOSUBP0D 

130 V=AxB*C:G0TOB40 

140 PRINTAO, “VOLUME DO PRISMA TRIANGULAR REGULAR”: GOSUB390:POKEP 
7 +452,972POKEP+472, 104:PRINTOZ04, “CALCULANDO A AREA DA BASE” :GOSU 

Heber Jorge da Silva Beag:s 3x ALZ:GOSUB770:GOSUB780 

150 GOSUB410:G0SUB1000:V=5*H:GOTOBGO 

160 PRINTDOA, “VOLUME DA PIRAMIDE”:GOSUB420:PRINTAZO4,“CALCULANDO 

A AREA DA BASE”: GOSUBBBO:S=AL2:GOSUB770:GOSUB7B0 

170 GOSUB44D:FORX=44TOSASTEPISSETAX, BIISETOX, 24) NEXTIPOKEP+344, 

104:G0SUB1000:V=5xH/3:60TOB60 

180 PRINTOO, “VOLUME DO TRONCO DE PIRAMIDE”:GOSUB450:PRINTAZOA,“C 

HLCULANDO A AREA DO TOPO” :GOSUB8B80:SÍi=AL2:G0SUB770:G0SUB780:G0SU 

B480 














“FILIADA À ASSESPRO.” 


ualquer micro compatível 

com o TRS-80 modelos I ou 

HI com 16 Kb de RAM 

poderá rodar este programa, 

cujo objetivo é calcular o 
volume de 16 figuras geométricas 
diferentes. 

O programa apresenta um menu com 
as opções correspondentes às 16 figuras 
disponíveis para cálculo (figura 1). 
Escolhendo uma, o computador plotará 
no vídeo a figura requisitada, 
solicitando ao usuário entrar com as 
medidas necessárias aos cálculos. Ao 
informá-las, deve-se ter o cuidado de 
usar sempre a mesma unidade de 


xx MENU «x 
CALCULOS DE VOLUMES wxx 


Paralelepipedo 
Prisma Triangular 


Tronco de Piramide 


í 
2 
3 
4 
5 
6 
7 
8 


Tronco de Cilindro 


RE LSE CL ONE 





Cone 

Tronco de Cone 

Esfera 

Setor Esferico 

Zona Esferica 

Zona Esferica (2 bases) 
Cunha Esferica 
Elipsoide 


1920 PRINTO704,70 VALOR DA AREA DO TOPO E '“;S1:PRINTIZAS, “CALCULA, 
NDO À AREA DA BASE” :GOSUBB90:52=BL2:GOSUB7B0:GOSUB490 

200 PRINT97SB,70 VALOR DA AREA DA BASE E”; FORX=0TOSSTEP2:SET 
(X, 13): SETOX P)2NEXTEPOKEP+449, 1042G0SUB9L0FV=H/9%(51+52+5AR (Si 
*S2))26070840 

240 PRINTS ZO, “VOLUME DA CUNHA”: GOSUBS00:PRINTSZOS,““:GOSUBBBO:G 
OSUBB90:G0SUBP00:GOSUI D:G0SUB94L0 

220 V=((2rA+rC)*BxH)/55GOSUBBOO:GOTOBSO 

230 PRINTOO, “VOLUME DO CILTNDRO”:GOSUBS30:GOSUBSZ0:GOSUBSBO:GOSU 
B$40402U=3.14157xRL2xHEGOTOBEAO 

240 PRINTOO, “VOLUME DO TRONCO DE CILINDRO”:GOSUB530:60SUBS70:60S 
UBSPOsSPRINTAZOA,” SUB940:GOSURP40:V=1.5708xRC2x(HI+H2) EGOTOB6 
o] 

250 PRINTAO,” VOLUME DO CONE“:GOSUB5S30:G0SUBS70:GOSUB400:60SU 
B101020=3,141594(RE2)4H/3:60TOBGH0 

260 PRINTOO, “VOLUME DO TRONCO DE CONE”:G0SUB5S30:GOSUB570:GOSUB 61 
O:PRINTAZOS, “2 GOSUB9SO:SGOSUBPÍO 

70 V=1.0472*H%(KECD+RZ)CRICI+RI)EGOTONGO 

280 PRINTOO, “VOLUME DA ESFERA”: GOSUBS30:GOSUB640:PRINTOZO4, “260 
SUB740:V=443,141597%RL3/3:G0TOB40 

290 PRINTOO, “VOLUME DO SETOR ESFERICO”:GOSUB650:GOSUB470:GOSUB4E 


























INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMÁTICA 


CURSOS 
LINHA IBM (Apoio Marcodata) 
OS/VS1 — VSE — VM/CMS — VSAM 
— DL/1- COBOL: TÉCNICAS E 
OTIMIZAÇÃO 
MICROINFORMÁTICA 
BASIC — ASSEMBLER — PASCAL 








o 











medida, pois o programa não faz costumam imprimir de forma diferente listagem esta operação equivale ao SO BUB AGO sBOSUBS VADE SPEA UADAV anos SiS eRLon LOGO — CP/M — VISICALC 
conversões o caráter de ex enciação Os mais caráter [ Po to, durante a “ 300 PRINTOO, “VOLUME DA ZONA ESFERICA”:GOSUB650:GOSUBS70ZFORX=7TO dBASE II WORDSTAR 
e ' a pon e pas x rtan , 46:SET(X,12)2:NEXT:FORX=44TOS2STEPAISET(X,7 ET(X,12)2:NEXT:POKEP a 
Observação: as impressoras utilizados são: 6, À,[ e + . Em nossa digitação, substitua-o adequadamente. +216, 104260SUB10204PR INTA704, “” 2 GOSUBP403GOSUBPLO 


340 V=3.14159xHC2*(R-H/3) :G0TOB40 

320 PRINTOO, “VOLUME DA ZONA ESFERICA «< 2 BASES )“:GOSUB650:GOSUB 
700:PRINTSZOM, “7: GOSUB920:GOSUBPLOZV=.5236%Hx(CIXALD/4)+(3XBL2/4 
)+HE2)2G0TOB6O 

330 PRINTAO, “VOLUME DA CUNHA ESFERICA”:GOSUB6S0:GOSUB720:GOSUBLO 
20:PRINTOZO04, “2 GOSUBP40:GOSUBB70:V=.0116%FHRLIZGOTOB6O 

340 PRINTOO, “VOLUME DA ELIPSOIDE”:GOSUB730:PRINT9Z04,””:GOSUB9IO 
2U=447,14159xA4B%C/3:G0TOB60 

350 FORX=10TO46:SET(X, 13): SET(X, 29): NEXTEFORX=22T05B:SET(X,7):NE 
XT2:X=20:FORY=7T013:60SUBBS0:NEXT:X=56:FORY=7T013:GOSUBBS0:NEXT:X 
= FFORY=237029:GOSUBBS0: NEXT 

O FORY=7T023:SET(59,Y):NEXTIFORY=13TOZPISET(P, Y)ESET(AZ, Y)FNEX 
ORY=7TOZISTEP2:SET(22,Y)2NEXT:FORX=22TOSBSTEPIZSET(X, 23): NEXT 
237029:SET(X,Y)2:X=X-2:NEXT:RETURN 
TOB2:SET(X,14):NEXT:FORX=10TOZO:SET(X, 20): SET(X,29):N 


FORMAÇÃO DE PROGRAMADORES 
DURAÇÃO: 9 MESES 





CPD-ORT: IBM 4341 COM TERMINAIS 
LABORATÓRIO DE MICROS 










SUPRIMENTO É COISA SÉRIA 


[ E À I Ã À L ) À I À * Matenha o seu computador bem alimentado adquirindo produtos de qualidade consagrada. 


* Fita Magnética: 600, 1200 2400 Pés 
Discos Magnéticos: 5 Mo. 16 Mb, 80 Mb etc “ e Fita CARBOFITAS p/Impressoras: Globus M 200 — B 300/600 
es li, | DISKETTES: 5 1/4 e 8 - marca VERBATIM « Fita pl Impressoras: Elebra, Elgin, Epson, Digilab, Diablo, etc. 


ETIQUETAS PIMACO — PIMATAB E ef Pormutáios Contínuos 


482 SR 207 -TEL 120 E 263-5876 





TREINAMENTO IN HOUSE 









SOLICITE INFORMAÇÕES E 
FOLHETOS EXPLICATIVOS 


RUA DONA MARIANA - 213 - BOTAFOGO 
TELS.: 226-3192 - 246-94 
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COMO CALCULAR VOLUMES SEM FAZER FORÇA 


[ELOA BALIOE 













650 FORX=20T032STEP2:SET(X,7)2:NEXT:FORA=OTOISTEP 3ET(LS+A,B) SE 

T(34+A,B):SET(12+A,9)2SET(3B+A, 9): NEXTEISET(10,40 3ET(42,10)2X=B 

FFORY=1ÍTOLGSTEP2ISETOX, Y):X=X-22NEXTE 4: FORY=Í1TOL6STEPESSET( 

X,Y)EX=X+22NEXTEFORY= 17TO2ZOSTEP2 3 3SET(49,Y):NEXT 
24TOZ6STEPZ:SETCX,Y = NEXTISET(42,26):FORA=0T 
2 ET(34,28):SET(30,29) 2 RETURN 

670 A=20:B=3 =7T09:G0OSUB980: -4:B=B+4:NEXT:FORX=10T042:SE 

T(X,10):NEXTEFORX=BTO4 ETCX,141)2NEXTERETURN 

480 A=B:8=44:FORY=127017:G0SUB980:A=A+3:B=B-3:NEXT:FORX=9TO4ISTE 

2: RESET(X, 12): NEXTSRETURN 

690 FORX=44TOS2STEPA:SET(X,7 SET(X, 12): NEXTEPOKEP+216, 104: RETUR 


EXT:FORY=20T029:SET(40,Y):SET(72,Y Ex ORY=14T023:SET(B4,Y):N 
EXT:FORY= 14TO23STEP2:SET(2A, Y):NEXT:FORX=23TOBOSTEPIZSET(X, 23)2N 
ExT 
380 X=21:FORY=14T020:GOSUBBS0O:NEX B1:FORY=14TO2Z0:GOSUBBS! 
T:X=B1:FORY=297029:G0SUBBS0:NEXT: 23: FORY=23T0292:SET(X,Y): 
ENEXTESRETURN 
390 X=18:FORY=18T029:SET(X,Y):X=X-12:NEXTEX=18:FORY=18TOZP:SET(X, 
+12 NEXTZFORX=7T029:SET(X, 29): NEXT:X=45:FORY=4T018:GOSUBBSO 
EXT 
400 X=372:FORY=14T029:SET(X,Y): = 7TOSBSTEPIZSETCX, 
14) :NEXTEX=473 MFORV= =ATOSASTÉP EXTE RETURN 
B 


TODA A LINHA 
= DE MICROS E 
MINICOMPUTADORES 
A informação nas pontas dos seus dedos 
Gerenciador de | Automação 


banco de dados |de escritórios qu 
dBASE 


Requerimentos do 
Sistema: 
Sistemas operacionais: | 1) (Microprocessadores 8080, 
MS-DOS (IBM-PC) CP/ | 8085, ZB0, 8085, 8088) 
M CP/M-86 CROMIX | [164K p/ CP/M; 128K p/ CP/ 
CDOS MP/M MP/M-86 


O Cursor endereçável 
para o uso de funções 








* Patente Requerida 





N 

700 PRINTOÍ35, STRINGSC(12,” “)2FORX=12TOANFRESETCX, 9) ENEXTIFORX=1 
DTO423SET(X, 10) ENEXTIA=B2B=442FORY=11T0145=GOSUB980:A=A-1 2B=B+4 2N 
EXT f 

740 FORY=6TOLISTEP22SET(LO, Y)SSET(42, Y) ENEXTEFORX=10TO42STEP4:SE 
T(X, 6) ENEXTEFORY=9TOLSSTEP2ISET(A, Y) ESETC4B, Y) 2 NEXTIFORX=4TO48ST 
EPAZSET(X,3):NEXTIFORX=46TOSBSTEP4ZSETCX, 10) 3SETCX, 15) ENEXTEPOKE 


á ate E. P+77,9B:POKEP+144,97:POKEP+282, L04ZRETURN 
44 =2 4: = 24: S FA=A- = 3: sA= :8=971 4 Fr a a. 
SA DR O RUE PTOS A EUR ANSA OS NEXT IA i LEB=97250 720 FORX=20T03 T(X,7):NEXTEÁ=16:B=96:FORY=BTOLBEGOSUBPBO:A=A4 


FA=A+3:B=B-9: E) Y=20T029:RES 2 »: a 
OSUB9B0:A=A+3:B=B-3:NEXTEFORY=20T0293RESET(25,Y) NEXT 1 26=B-LENEXTEXSA 1 2FORY=ATO7STEP2 ESET OX, 1) 2XSKH2ENEXTEX=AL FOR V=A 


2, 29) RETURN 2€ See A mid 9. - =” a”.s E 
450 FORX=321049:SET(X,9):NEXTEFORX=20T0972SETCX, 13): NEXTEFORX=22 UA CROATA ENE RUPUBPIMETÇÃO, 5) ASETÇSA, 
js 


SET(X,20):NEXT:FORX=10T0472SET(X,29) ENEXTEX=202FORY=13 h ê ç EE 
O VEN ES NDT DA Pg ua LISETOX, VI EX=X- 6 730 A=20:B=422FORY=11TOLI:00SUB9BDFA=A-SEB=+52NEXT2A=20:B=42:F0 
; ; . - RY=29T027STEP-1 :GOSUB9B0:A=A-528=8+52:NEXTEFORX=7TOSS:SET(X, 1425 
460 X=60:FORY=20T09STEP-SESET(X, Y) EX=X-4 ENEXTEX=222FORY=20T09STE ET(X;26) :NEXTEFORX=4TOSBESET(X,25)ESETCX, 15) ENEXT À 
TX Vs X= EXTIY=93FORX=49T0I7STEP- ESETCX, Y) E V=Y+. IE NE 740 FORX=2T060:SE ET(X,24)ENEXTEFORX=1TOS1 :SET(X,17)2SET 
CFO PRESA Tao CEBET OL Ve v+SINEXTI Va O PORREAOTO MOST (X,29) 2NEXTEFORY=18TO222FORX=0TO62:SETCX, Y) E NEX 
TIP No ; T(X,11)3SET(X,29):NEXTEA=B4 :B=942FORY=127016:GOSUB9B0 
Ao e ; E B+12NEXT 
223 FORY=20TOZPSTEP2SSETAX, Y)EX=X-2,5:;NEXTEPOKEP+148,972POK 
at nas! Seco ” 750 A=B4:B=94:FORY=28TO24STEP-4 :GOSUB9BO:A=A-4:B=B+1 :NEXTEFORX=8 
) : “ER a OTOPBISET(X, 17) 2SET(X, 23) ENEXTIFORY=18TO22 
480 = I=46:FORY=107012:G0SUB9B0:A=A-3:B=B-3:NEXTIRETURN A E a 
490 f= DESoNEORVEZDI OSS DOSE OOLA=A-A A Bad 2 INEXTO SA SB AFOR NEXTENEXTEFORX=4 TOS0OSTEPASRESET(X, 20) ENEXTEFORY=1 470295 
(=20T0293RESET(X, Y) 2X=X+. 6:NEXTERETURN ENC TO REDE Neo a DE NEA : 
00 COR ATOR : ONCE CONS TENER 760 FORX=54TO99STEPASSET(X,20) ENEXTESET(4OL,20)2SET(4OS, 20): SETA 
TEX=91 3 FORVEÍ7TODHESETEX. VI IX EXTIFORX=137079:SET(X,29) :NEX 31,31) :SET(91,9):SET(B9,9) 2 SETCB9, 91) EFORY=9TOLGSTEP2ISETCO,Y)ES 
T:X=91:FORY 2 E T(X VD NEXT 7 ETC79,Y E: 7TOLO6STEPASSET(X,11)2NEXTEPOKEP+196,972:POKE 


S40 X=12:FORY=17TOZ4ISET(X,Y X+32NEXTEFORX=22T09ISTEP4:SET(X,2 Presa, pas 


ET(2 24, YE NEXTE X=2 FORD=1 TOZESET(X4D, 
=262FORY=9T02: ETC(X-D, Y) ENEXTEX=X 
=24T0292FORD=1 TO32SET(X+D, Y):NEXTEX=X+32 NEXT 
=24T0292FORD=1 TO3:SET(X-D, Y):NEXTEX=X-3 TIX=24:F 
ORY=19TO24:SET(X, Y) 2X=X-32NEXTEX=242FORY=19TOPASSET(X, Y)2X=X+3EN 
EXTEPOKEP+593,972RETURN 








DA LAURENTI. 


eae usp 


tas é formulários continy 


End Rua da Lapa, 180 gr 1108 à 1110- CEP 
20021 — Rio de Janeiro — Tel.: (021) 221-3069 





4)2NEXTEX=772FORY=29TOPSSTEP-1 2 FORD=1TOISETEX+D, Y) NEXT +38N a ba bd STRENDSC40, 
ORY=29TOZASTEP-22SET(X, Y)2X=X+4 2 NEXTEPOKEP+279, 992POKE 780 PRINTO/68, STRINGSC4O 32 
RERCASS SITE RIR 790 PRINTOBIL, STRINGS(40, 3 
E já À 3 “ 800 PRINTAB96, STRINGS(4O, 32 
520 FORY=1BTO29STEP2:SET(44O, Y) ENEXTEPOKEP+S03, 1042FORX=100TOS 16 ' ) 1ó 
STEP3:SETCX, 47) ESET(X, 29): NEXTERE TURN 840 PRINTOÇÃO GTRINOS (44,3 
530 FORX=20T032:SET(X SET(X,29):NEXTEFORA=0TOZESET(LG+A, E) E SE 820 FORP=16064T016106:POKEP,4762:NEXTEFORP=161927016234:POKEP, 131 
T(33+A, B) ESET(LG+A, 28) ESETCII+A, 28) ESETCÍDHA, PI ESETCIZ+A, PI SSETC PNEXTIFORINATO6MPRINTO/68,” O resultado e” 
gia ROS ENE “;2FORD=1TOS0:NEXTEPRINTAZOA, USING“HHH, HEM, HAM, HMM MNA 2Fo 


540 FORF ETCÍOrA, 10) SSETCAL+A, LO) ESETCÍOHA, 26) 2SET(ALHA, 26 po e q jo pa E A Res : 
'ESET(B+HA, LÍ)ISETCADHA, LI)ISET(BHA, 25) ESET(43+A, 25) ENEXTEX=72FOR ; Lato HAL 5 ?* para nevolentento 


Y=12T015:SET(X,Y)2X=X ENEXTEIX=45IFOR 2TOSSISETIX, Y)EX=X+1:NEX 
T 
550 X=72:FORY=24TO2ZISTEP-LISET(X, Y)2X=X-1 2NEXTEX=45:FORY=24TOZIST 
EP-S2SET(X. Y)2X=X+1 ENEXTIFORY=15TOLGISET(A, Y)SSET(4B,Y):NEXTEFOR 
(=20TOZÍSET(4,Y JET(4B, Y)ENEXTIFORY=17TOLPISET(I,Y ETC(49,Y): 
NEXT 

360 X=26:FORY=18TO26:SET(X, Y):X=X-22NEXTEPOKE1S815,114:RETURN 
570 FORY=9TO32STEP2:SET(26, Y) ENEXTEFORX=2T0126STEPA:ZSET(X,18B):NE 





A COLADORA DE BLOCOS DE PAPEL 











COLA EM MENOS 
DE 30 SEGUNDOS. 


B40 AS=INKEYSEIFASC)CHR$( 13) THENS4DELSERETURN 

B50 FORD=ÍTO3FSETCX+D,Y)3NEXTEX=X-22:RETURN 

860 GOSUB770:GOSUB78B0:GOSUB790:GOSUBBL0:GOSUBB20:GOSUBB30:G0TO4O 
870 INPUT“Entre com o valor do angulo alfa”;Fs RETURN 

880 INPUT“Entrz com o valor do lado (a)”; 
890 INPUT“Entre com o valor do lado (b)“;B=:RETURN 
900 INPUT“Entre com o valor do lado (c)” ETURN 
940 INPUT“Entre com o valor da altura (h)“;HERETURN 









Colabloc - 1º coladora nacional com 


BERE TUM. A DES spa Ee Es E = 920 INPUT“Entre com o valor do diametro menor (a)“;A:INPUT”Entre tempo total de operação máximo de 
580 FORX=56T0124:SET(X,7) 3 SET(X,29) NEXTEFORY=7T0292SETC56,Y)ES Aicd a ; mer 30 d 

DESA TRENT BOR ESA DAS OA SRE AN com o valor do diametro maior (b)2;B:RETURN segundos. | 

OE FORX=IOTOLSANTETOR. 7) UNENTEFORREGENDIOA SET AR 250 NERI? 0d 930 INPUT“Entre com a distancia (a)”;A!INPUT“Entre com a distanc Produto de mesa, compacto, simples e 
FORY=7TO2PISET(X, Y) EX=X+1 ENEXTEFORY=7TO29SET (124, Y) NEXTEPOKEÍS NE pa a raro pa do RR o ao be TURN seguro, ideal para escritórios que não 

474,722:POKEL6054, 104: : ;RE ii i 

pt Sad deb dad INPUT“Entre com o valor do raio maior (r)“;R2:INPUT“Entre co exijam sistemas complexos de 


00 FORY=7T029:SET(120,Y):NEXTE 120:FORY=7TOSB:FORD=1TOS:SET(X- 
D,Y)zNEXT -SENEXT: 20:FORY=29TOL9STEP-1 2 FORD=1 TOS:SET(X-D,Y 
Ex EXTEFOR BTOI2STEP2:SET(40, Y)SSET(L20,Y):NEXT:FOR 


valor do raio menor (r4)2;Rí2RETURN ; encadernação. 
INPUT“Entre com o valor da altura maior (H)“;H4:INPUT“Entre Perfeito para atender às necessidades de 


o valor da altura menor (h)”;H25RETURN é usuários de computadores e gráficas, 


OTOL20STEPA:SET(X,32)2NEXT:POKEP+748, 104: RETURN $ ” - a ” “ 
640 FORX=21T0312SET(X, 12) 2SET(X,24) ENEXTEFORA=SOTOL :SETCL9+HA, 19)4 REDE NS CANFORHE NM OLONERINAAMESHA UNIDADE: DESHEDIDA) cujo volume de trabalho de 


SETCIDHA, 13): SET(AZ+HA, 14) 3SET(S4+A, 14) ESET(49+A,23)3 SET(32+A,23) 980 FORX=ATOBZSET(X,Y) ENEXTERETURN encadernação não seja grande. 
3SET(IZ+A, !ISETC34+A, 22) :NEXTESET( 16,15) 3SET(16,21):SET(SS,16) 990 FORX=ATOBSRESET(X,Y):NEXTERETURN Executa um trabalho limpo por não 


T(15,20) 07 “ 10.63 : i 
620 SET(I6, 15): SET(97, 16) ISETC36,24)2SET(37,20): 7TOLDISETC 1000 PRINTO/04,70 VALOR DA AREA DA BASE E ”“;S:GOSUB910:RETURN necessitar de contato manual com a cola. 


14, Y)3SET(38, Y) ENEXTEX=262FORY=1BTO222SET(XY) EXTEPOKEP+ iu MA MAUA 3 GOSUB940:GOSUB940:RETURN Não exige instalações especiais, sendo 
400,114:POKEP+401,492:FORY=7TO29:SET(140,Y)ENEXTIX=110:FORY=7TOL2 é apenas necessário uma tomada 

2 FORD=0T072SET(X-D, Y) ENEXTEX=X-7 2 NEXT rnonofásica de 110 volts 50/60 Hertz. 
630 X=110:FORY=29TO2Z4STEP-1:FOR TOZ:SET(X-D,Y):NEXT:X=X-72:NEXT 

ZFORY=12T024:SET(6B, Y):NEXTEFORY=9TOLISTEP2:SET(4B, Y)2SETCÍ4O, Y) 

3NEXTEFORX=68TOS LOSTEPAZSET(X, 3) ENEXTEPOKEP+108, 104:RETURN 


640 FORY=3TOI2STEP2:SET(26,Y):NEXTIFORX=OTOSISTEP4ISET(X, 18) :NEX 7 &N laurenti 
T=RETURN Formado em Administração de Empresas pela UDF, Heber Jorge da Silva trabalha atualmen- 


te na Telebrasília, onde exerce atividades ligadas à programação de microcomputadores. EQUIPAMENTOS PARA PROCESSAMENTO 
DE DADOS LTDA. 
Matriz: Rua Theodureto Souto, 308 - Cambuci - CEP: 01539 
PABX: 270-8244 - Telex: (011) 36305 - São Paulo - SP 
ns REPRESENTANTES TÉCNICOS E COMERCIAIS 
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GANE, C; SARSON, T, 

Análise Estruturada de Sistemas, 
LTC — Livros Técnicos e 
Cinetíficos Editora S.A. 


BM Análise Estruturado de Siste- 
mas compõe-se de um conjunto 
de técnicas e instrumentos surgi- 
dos do sucesso da programação e 
do projeto estruturado. Os auto- 
res buscam mostrar a diferença 


lho de projeto (definindo como 
o sistema fará), reconhecendo 
que os analistas muitas vezes pro- 
jetam e os projetistas muitas ve- 
zes fazem análise. 

Os autores procuram evitar 
ao máximo a introdução de novos 
termos, mas como a disciplina se 
baseia no projeto estruturado 
(que possui seu próprio vocabulá- 
rio) e na teoria sobre banco de 
dados relacional (que também 
tem seu vocabulário próprio), sur- 
ge, às vezes, uma terminologia 
desconhecida. Cada um desses ter- 
mos é explicado quando aparece 
pela primeira vez, sendo também 
definido no glossário, no final do 
livro. 


TIGRE, P. B., Computadores 
Brasileiros; Indústria, Tecnologia 
e Dependência, Editora Campus. 


BB Dentro do tema “reserva de 
mercado”, este livro analisa o de- 
senvolvimento industrial e tecno- 
lógico autônomo do setor de In- 
formática à luz do comporta- 
mento competitivo das empresas 


| Pauta Bastos TIGRE 





namental e natureza da tecnolo- 
gia microeletrônica. 

O livro examina importantes 
questões levantadas pelo relativo 
sucesso alcançado no desenvolvi- 
mento de tecnologia sofisticada 
por um país em desenvolvimento. 
Dentre os tópicos discutidos, es- 
tão as oportunidades e dificul- 
dades com que se deparam as 
empresas nacionais para adquirir 


tos de processamento de dados, 
assim como o papel desempenha- 
do pelas multinacionais, pela 
transferência de tecnologia e pela 
estrutura de mercado. Concluin- 
do, enfatiza a necessidade de po- 
líticas governamentais destinadas 
a superar as barreiras oligopolis- 
tas estabelecidas por empresas 
multinacionais, para que a indús- 
tria brasileira possa continuar 
apresentando o mesmo ritmo ace- 
lerado de crescimento. 


ROSSINI, F., Linguagem de 
Máquina para o TK, Editora 
Micromega. 


| Linguagem de Máquina para o 
TK é destinado a pessoas que já 
estejam familiarizadas com o BA- 
SIC desse equipamento, mas que 
tenham pouco ou nenhum conhe- 
cimento sobre linguagem de má- 
quina, Dividido em duas partes, 
“As instruções em linguagem de 
máquina do microprocessador 
Z80"' e “Primeiras aplicações da 
linguagem de máquina para o TK”, 
o livro tem o mérito de desven- 
dar partes que poucos conhecem 


entre trabalho de análise (definin- | nacionais e multinacionais, estru- 
do o que o sistema fará) e traba- tura do mercado, política gover- 


capacidade técnica para projetar, do TK, revelando algumas de suas 
desenvolver e fabricar equipamen- — incríveis possibilidades. 





939.850, 
398.850, 


DGT-1000.. 


GRATIS! 
UM CURSO DE BASIC 
ENTREGA RÁPIDA EM TODO BRASIL 
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Aplicativos: controle de estoque; contabilidade: folha de 
pagamento; contas a receber pagar: mala direta: cadastro 
de clientes e desenvolvimento de software para cada neces- 
sidade. E 

Temos toda linha de periféricos e suprimentos para acom- 
panhar o crescimento de sua empresa. 


VISITE-NOS OU SOLICITE UM REPRESENTANTE 


MICRONEWS COMÉRCIO E SERVIÇOS LTDA 
R. Assembléia 10 Gr. 3317 - Ed. Centro Cândido Mendes 
Tel.: (021) 252-9420 - CEP 20011/RJ. 


u 


com acentuação 
em português 
áaaaéeidvdodÚuç22ºS | No Vídeo e 
SISTEMA IVANITA na Impressora 


Totalmente compatível com o 
Processador de Texto - JANELA MÁGICA Il 


en SACCO 


conhecê-lo 
nai computer store 


Linha Completa de Software para APPLE 


AI. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
São Paulo - SP - Tel.: (011) 852-0799 


(*)O Sistema IVANITA já é compatível com as seguintes impressoras: 


*GRAFIX80/100 « ELEBRAB010/11/30/31 « CENTRONICS 351 
* ISA EL - 8000 * ELGINLADY 1401/1401 + Máq. de escrever OLIVETTI ET 
« MÔNICA El-6010 + EPSON MXIRXIFX 80 /100 + Mãa. de escrever IBM 96 / 196 








O Nexus 1600 conquistou a pre- 
Jferência dos usuários brasileiros 
de microcomputadores compatí- 
veis com IBM-PC. Também não 
era para menos. Afinal quem 
analisa a linha de micros de 
16 bits sabe que a qualidade do 
produto, a garantia de con- 
tinuidade de produção e de 
acompanhamento dos lança- |5 
mentos da IBM no exterior, | 
são fundamentais para o su- 
cesso, a médio e longo prazo, 
desta nova linha de equipa- 
mentos. E quem está no mer- 
cado de informática sabe que th 
somente o Nexus 1600 pode ofe- | 
recer esta garantia. Operando iso- 
ladamente, funcionando como siste- 
ma multiusuário, com até 16 termi- 
nais ou emulando um terminal do 


computador de grande porte, o Ne- 
xus 1600 é o “IBM-PC COMPATÍ- 
VEL” de melhor performance. 
Além disso, o Nexus 1600 é o único 
micro “IBM-PC COMPATÍVEL” 
aprovado pela SEI. Isto significa 
que somente o Nexus 1600 é pro- 
duzido com peças e componen- 
tes adquiridos legalmente no 
exterior, diretamente do fa- 
bricante de chips, com contro- 
le de qualidade e garantia de 
de fornecimento. Forneci- 
mento hoje e amanhã. 
A garantia e assistên- 
cia técnica ao Nexus 1600 
3 é prestada diretamente 
pelo fabricante, em todo 
o país. Com o Nexus 1600 seu 
micro não fica parado. 
A Compumicro e o fabricante garantem. 































Tudo o que você precisa para implantar um NEXUS 1600 na 
sua empresa você encontra na Compumicro. Levantamento de 
necessidades, especificação de configurações, treinamento, for- 
necimento de Software nacional e importado, desenvolvimento 
e implantação de sistemas, com a garantia da experiência de 
quem mais entende de 16 bits no Brasil. 





VENDA — ALUGUEL — LEASING 


Soo Cia(o 


repro 


O maior revendedor NEXUS 
do Rio de Janeiro com os 
menores preços do mercado 


INFORMÁTICA EMPRESARIAL L 


Rua Sete de Setembro, 99 — 119 andar 
. PBX (021) 224-7007 
CEP 20050 — Rio de Janeiro — RJ 








EQUIPAMENTOS 





e Vendo novos: TK e CP, 
APPLE, impressoras e diskdrivers. 
Financio. Antonio. Av. Af. Pena, 
952, cj. 522. Tel.: (031) 222-3035, 
B. Hre-MG. 

e Vic 20 Commodore 64. Vendo 
interface p/cassete. Tratar com 
Gustavo, tel.: (011) 460-3208. 


e Radioamador vendo interfaces 
para CW (telegrafia) e RTTY (ra- 
dioteletipo) para os micros da li- 
nha SINCLAIR  TK82/83/85, 
CP200. Informações com Renato 
Strauss PY2-EMI Rua Cardoso de 
Almeida 654/32 — 05013, São 
Paulo-SP. 


e Vendo CP300 em excepcional 
estado de conservação, preço 500 
mil a vista, motivos da venda: fi- 
nanceiros; interessados comuni- 
car-se com Ricardo Cardoso pelo 
tel.; (0132) 392746, Santos-SP. 





CURSOS 


e Basic |, Avançado e-Cobol são 
os cursos oferecidos pela MIKRO, 
à Av. Af. Pena, 952, cj. 522. Tel.: 
(031) 222-3035. B. Hte-MG. 


e A PRO-INFORMÁTICA SIS- 
TEMAS CONSULTORIA E 
TREINAMENTO oferece regular- 
mente cursos de Cobol, Basic, 
Basic Avançado e Assembley com 
turmas reduzidas. Além das aulas 
práticas, os alunos dispõem dos 
computadores com assistência de 
monitores em horários extra-aula. 
Rua Josafa Belo, 100 — Tel.: (031) 
337-8792 , Cidade Jardim — Belo 
Horizonte. 


e O CBI — CENTRO BRASILEI- 
RO DE INFORMÁTICA promove 
para os meses de Junho/Julho os 
cursos de BASIC, BASIC AVAN- 
ÇADO, MUNPS, COBOL, CP/M, 


ROCO 


cêsgifidados 


LÓGICA DIGITAL, ASSEMBLER, 
MANUTENÇÃO DGT 100/1000. 
Turmas reduzidas, certificado de 
conclusão e aulas práticas. Infor- 
mações na Av. Passos, 115 — sala 
215ou pelo telefone 233-1123. 


e O NETC, estará promovendo 
mais uma vez com pleno sucesso, 
durante os meses de Junho/Julho 
e Agosto, os seguintes cursos: De- 
senvolvimento e Projeto de Siste- 
mas aplicados à Transmissão de 
Dados (45:00hs), Desenvolvimen- 
to de Interfaces A/D e D/A para 
Aquisição de Dados e Controle 
(35:00hs), Sistemas de Comunica- 
ções por Fibras Óticas (40:00hs), 
Processadores BIT SLICED 
(30:00hs) e outros mais. Infor- 
mações, inscrições e pedidos de 
catálogo de Cursos, à Rua Álvaro 
Alvim, 37 — 2º andar — Centro 
Rio — CEP: 20031 — Fone: 
(021) 225-6013. 


e A Rio Micro está promovendo 
cursos de Basic p/crianças e adul- 
tos. Horário diurno e noturno, 
insc. abertas: Rua Visconde de Pi- 
rajá, 330 Lj. 314 — Fone: 521- 
4888 — Ipanema e Centro — RJ. 


e O CBI — CENTRO BRASI- 
LEIRO DE INFORMÁTICA 
promove regularmente cursos de 
BASIC, BASIC AVANÇADO, 
MUMPS, COBOL, ASSEMBLER, 
manutenção DGT 100/1000, CP/ 
M, LÓGICA DIGITAL, Telepro- 
cessamento, Controle de proces- 
sos, redes locais, projetos de In- 
terface para Micros. Turmas redu- 
zidas, certificado de conclusão e 
aulas práticas. Informações na Av. 
Passos, 115 S/215 ou pelo tel.: 
233-1128. 


SOFTWARE 





e Vendo fitas com 8 jogos grá- 
ficos e coloridos em alta resolu- 
ção para o TK-2000 e similares 
Apple. Cada fita vem com os se- 
guintes jogos: SPIDER, LANDER, 
MEMÓRIA, POKER, PIANO, 
BOXES, CATCH e EQUATE, 
além de um programa monitor 
principal. Preço por fita com 8 
jogos: Cr$ 30.000,00. Pedidos pe- 
lo telefone: 266-4852 ramal 398 
ou 344 com Daniel. 


e Vendo CP/M (placa Z80 e dis- 
quete com o sistema operacio- 
nalje dBase || tudo por 210 mil. 
Com Jamel — Cx. Postal 1346 — 
84.600 — União da VitóriaPR. 


e Vendo: editor 6502 — Apple 
Disco. Tel.: (011) 579-1354 — SP 
— Enrique. 


+ Vendo fita c/10 jogos americ. en- 
tre eles estão: Krazy e King Kong, 
Fogger | e Il e Mazoggs. Apenas 
15 mil. Tr. c/Wagner — Pç. A. 
Pena, 77/6083. S.J. dos Campos. 


e Fundação do Eletro Soft, tem 
como objetivo comunicar aos lei- 
tores de Micro Sistemas e aos pos- 
suidores de aparelhos de lógica 
Sinclair (TRS — CP200 — Ringo 
— AS1000 — etc.), a troca e venda 
de programas. Escrevam pedindo 
catálogo para: Eletro Soft, Cx. 
Postal 037 — São Carlos, S. Cata- 
rina, CEP: 89885. 


e Vendo ou troco programas de 
jogos e utilitários para a linha 
TRS-BO (Naja — JR — CP500 — 
CP300 — Dismac — Digitus) tra- 
tar com Jorge Luiz. R. Mendes — 
Rua da Matriz, 286 — apt? 12 — 


Santo Amaro — SP. Fone: (011) 
521-7127 — CEP: 04746. 

e DESK — programas inéditos 
para TK e CP200 16K c/slow — 
Fita 3 — Senha/Puzzle, Fita 4 — 
OVNIs/Sopa de letras — Cr$ 
9.000,00 por fita — cheque nomi- 
nal ou reembolso postal, Desk 
Eng. e Sistemas Ltda. Cx. Postal 
180 — 84.100 — Ponta Grossa-PR. 
e DESK — programas inéditos 
para TK e CP200 16K c/slow — 
Fita 1 — Batalha Naval/Tiro ao 
pato, Fita 2 — Flip Flop/Biorrit- 
mo — Cr$ 9.000,00 por fita — 
cheque nominal ou reembolso 
postal. Desk Eng. e Sistemas Ltda, 
Cx. Postal 180 — 84.100 — Ponta 
Grossa-PR. 

e Troco e vendo programas para 
computadores da linha Sinclair, 
grande acervo. Tratar com André 
no período da noite, pelo fone 
313546 ou enviar carta para Rua 
Dr. Zaudhick Saadi, 120 — Bela 
Vista — Porto Alegre, CEP 90000. 





DIVERSOS 





e Quero entrar em contatô pos- 
suidores de M. S., que tenham os 
nº s anteriores ao exemplar de 
fevereiro/84 para obter programas 
e utilitários. Remeterei selos e en- 
velopes para a remessa de progra- 
mas. Cartas para Delmar José 
Thomé, Rua Izidoro Mary, 2037 
— CEP; 95100 — Caxias do Sul-RS. 





CLUBES 





Entre p/o Clube da Rio Micro. 
Basta pagar uma taxa de 8 mil e 
contribuir com um livro, terá di- 
reito a usar um micro por 10hs ao 
mês e acesso à biblioteca. Rua 
Visconde de Pirajá, 330 |j. 314 — 
Ipanema — RJ. (Número limitado 
de sócios). 





Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 
você é quem decide o que, quando e como anunciar nos 


Classificados MS. Quanto você 
decisão sua. Preste atenção: 


terá que pagar? isso também é 


e cada linha de texto (30 toques, incluindo os espaços em branco) 


custa Cr$ 2.000,00; 


e linhas incompletas serão cobradas como inteiras; 


QUEM MANDA 
PAGINA SOU EU! 


eo próprio anunciante deve checar o valor de seu anúncio com o 


número de linhas que ele contiver; 


e o anúncio deve vir acompanhado de um cheque nominal à ATI 


Editora Ltda; 


Os textos devem ser datilografados ou escritos em letra de fôrma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 
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Maiores informações pelos telefones: (021) 262-5259 — RJ ou (011) 853-7758 — SP. 








Cr$ 449.950,00 
O microcomputador Ringo R-4706, disparado, o melhor em sua categoria. É mais rápido na execução de La praça oferece amplas possibilidades de 


expansão e é o único micro totalmente projetado e desenvolvido no Brasil, aprovado pela SEI - Secretaria Especial de Informática. 

Um verdadeiro herói nacional, 

hos ado Pancas com ele para resolver problemas pessoais ou profissionais, ou simplesmente para se divertir, através de vários jogos disponíveis em 
cartuchos ou fitas. 

Aliás, cartucho é o que não falta para o e Ele é compatível com todos os programas do famoso Sinclair e possui equipamentos periféricos 
exclusivos que ampliam muito a sua capacidade. 

Compare o Ringo R-470 com os similares e comprove: nunca apareceu um micro pessoal tão profissional por estas redondezas. 


CARACTERÍSTICAS TÉCNICAS: Lise 64x 44 pixeis (unidade gráfica), podendo atingir uma À venda nas lojas especializadas em micros, 
. Bos ac do mina 700 matriz de 256 x 192 quando utilizado com cartuchos foto-video-som e grandes magazines. 
, ROM expandível para 16 * Cléculos arttméticos, trigonométricas, logarftmicas e lógicas Não encontrando 0 Ringo nestes locais, ligue para 
+ 16 KBytes RAM expandível para 48 K Bytes * Cartuchos “Instant Son” aplicativos em ROM - exclusivo) 2417.8400 (SP) ou (011) 800.844 1 e B00.8442 (Outras 
+ Ulizivel em qualquer TV PÁS ou cores e lecid  prnsação em A na 2.400 BF localidades do Brasil). DDD gratuito. 
+ Conector para Joystick jogos) EXP, 
+ Teclado tipo QMERTY com 49 lecas e 15 funções teclas de edição * Gravador de EPRON paragravas, ditar a copias emcatucho RINGO [R=447)0) 
de cursor e correção) com repetição automática * Interface para impressora cu máquina de escrever elétrica 
+ Exchusiva tecla de inversão de vídeo + Sintetizador de sons O micro que aceita desafios. 
* Tela com 24 linhas de 32 colunas para texto * MODEM (Comunicação telefônica - 1.200 Bauds) Ritas do Brasil Ltda. - Divisão Informática 
* Proço sujeito a attecação Telex (011)34673 Rita BR 


PC 2001: o 16 bits mais 
compatível com o mercado 





TÍVEL COM O IBM-PC 
6962001 é o mais completo e versátil microcomputador brasileiro de 16 bits, realmente compativel, em hardware e software, com 


o PC da IBM, o micro que vendeu mais de 600. 000 unidades em 2 anos nos Estados Unidos. 

JR NÚMERO DE PROGRAMAS DO MERCADO k ; 
tmp de 50.000 titulos, com tecnologia e preço nacionais, que incluem gerenciamento de bancos de dados, aplicativos 
comerciais, financeiros e científicos. 


R E EXPANSÍVEL . 
portanto periféricos o PC2001 cresce, executando desde tarefas rotineiras até controles administrativos e de processos mais 


sofisticados, atuando como concentrador de informações, terminal inteligente ou descentralizador de sistemas. 

ALGUNS DADOS TÉCNICOS À 

Processador Intel 8088 de 16 bits, 5 MHz; memória ROM de 8 até 40KB e memória RAM de 64 a 512KB, cinco conetores de 
expansão de funções; monitores de vídeo em fósforo verde ou policromáticos; interface de até 16 terminais para multiusuários, são 
alguns dos detalhes do pequeno micro que trouxe ao Brasil a versatilidade de um grande sistema, já testado e aprovado por grandes 
empresas no Brasil. 


INK F 
E Pesvo: by distribuido como LINK 727 pela Link Tecnologia, a primeira empresa brasileira de desenvolvimento, que reúne marketing 


e tecnologia no fomecimento de produtos e suporte sem similares no mercado. Isto significa o melhor suporte ao usuário, e ainda 
pronta entrega, garantia de um ano, treinamento, assistência técnica efetuada no cliente, o preço 
mais acessivel do mercado, e uma rede qualificada de revendedores: 

SÃO PAULO: Ad Data - 282-0562 * Art e Imagem - 542-0588 * Execplan - 
284-0085 * Imarés - 881-0200 e 533-2111 * Microshop - 853-9288 * 
Sacco - 815-5367, 814-0598 e 853-5520 * SCI - 289-0099 * Servimec - 
222-1511 » Tiger - 212-9522; SOROCABA: MSM - 33-0511; RIO DE 
JANEIRO: Micro's - 252-4232 * SCI-294-9292; RECIFE: Microshop - 326-1525 








sistemas indústria e comércio ltda. 


- Viago 





SistaAMEE-so 


Pergunta — Possuo um TK 85e gostaria 
que vocês me ajudassem, pois com ele 
ocorrem alguns problemas estranhos: 
quando estou digitando um programa 
longo, ao pressionar alguma tecla o 
micro saido ar. Tenho que desligar e 
ligar novamente para recomeçar a digi- 
tação. Às vezes, aparecem linhas entre 
as já existentes no programa em digita- 
ção, mas estas linhas, que surgem sozi- 
nhas, contêm códigos em linguagem de 
máquina e, ao tentar apagá-las, o pro- 
grama começa a correr e não pára mais. 
(Fernando Cesar Ferreira, SC) 


MICRO SISTEMAS — Pelo que pude- 
mos avaliar do problema descrito, o 
que ocorre é simples falta de espaço, o 
que é muito comum em programas lon- 
gos. O manual do equipamento é bas- 
tante claro com relação a esse proble- 
ma (leia o capítulo 23: “Quando o 
computador fica repleto”), e na revis- 
ta já foram publicados vários artigos 
que abordam este assunto, como o ar- 
tigo “Pequenas memórias, grandes 
economias” (MS nº 22). 

preciso também não esquecer 
que, mesmo que o seu computador te- 
nha uma expansão de 48 ou 64 K, so- 
mente 16 K estão disponíveis para pro- 
gramas em BASIC (veja o artigo “Siste- 
ma Operacional do ZX81-Parte |”, em 
MS nº 25, pág. 40). Embora as expan- 
sões dêem a impressão de que é possí- 
vel escrever programas quilométricos, 
isto não é verdadeiro. 


Pergunta — Verifiquei recentemente, 
após a expansão de 16 para 48 K no 
meu DGT-100, que alguns programas 
em linguagem de máquina (que funcio- 
nam perfeitamente no CP-500) não 
funcionam no DGT-100, por causa das 
setas/normalmente usadas para mover 
algo na tela), pois programas como Pe- 
netrator e Galaxy Invaders, gravados 
em 500 bps e lidos no DGT-100, fun- 
cionam perfeitamente na parte de grá- 
ficos, mas as naves que estes jogos co- 
mandam não obedecem ao coman- 
do de nenhuma seta, e o que é pior, 
não obedecem a nenhuma tecla. Su- 
ponho, como o programa funcionou 
perfeitamente (exceto pelo que citei 
antes, sendo que no Galaxy eu conse- 
gui até disparar nos invasores, mas não 


MICRO SISTEMAS, Junho/84 


tive modo de sair do centro da tela), 
que deve haver alguma pequena modi- 
ficação de software para rodar progra- 
mas desenvolvidos no TRS$-80 Modelo 
HH para o TRS$-80 Modelo 1. Se for as- 
sim, é algo fácil de ser resolvido? 

Outra dúvida: os programas em lin- 
guagem de máquina quase sempre têm 
o endereço de entrada diferente do en- 
dereço inicial. Usando o DIGBUG pos- 
so conseguir os endereços final e inicial. 
Mas não há modo de obter o endereço 
de entrada, isto é, lendo através do co- 
mando R 1 eu poderia obtê-lo, mas 
como a maioria dos programas que con- 
sigo vêm do CP-500, só posso lê-los em 
500 bps (e nesta velocidade o R 1 
não funciona). Se o comando SYSTEM 
só exige a digitação de | RETURN, 
após a entrada do programa, para fazê- 
lo funcionar, suponho que devem ha- 
ver dois bytes que armazenem o ende- 
reço de entrada na forma LSB/MSB. 
Se isso é verdade, quais são? Se não é, 
como devo proceder? (Sergio Meira, 
PE) 


MICRO SISTEMAS — Realmente, em 
que pese a praticamente total compa- 
tibilidade do BASIC do DGT-100 
(Mod. 1) e o do CP-500 (Mod. ||), cha- 
mado BASIC Level |l, este problema é 
algo bem complexo: a filosofia de cons- 
trução destes equipamentos é, sob mui- 
tos aspectos, diferente. Em consequên- 
cia, um programa em linguagem de má- 
quina de um micro pode vir a acionar 
portas E/S completamente diferentes 
das desejadas quando rodado em outro 
equipamento, mesmo tendo sido con- 
vertido com sucesso através de pro- 
gramas como o Convert, Converte /JCL, 
Transfer etc. 

Quanto à sua segunda dúvida, os en- 
dereços que você deseja são: 40DF e 
40E0 (16607 e 16608). A respeito des- 
te assunto, leia o artigo “Linguagem de 
máquina no DGT-100”, publicado em 
MS nº 15, página 14. 


Pergunta — Possuo um CP-300 sem 
drive e gostaria de saber como devo 
proceder para digitar um programa em 
linguagem de máquina. O próprio mo- 
nitor residente do equipamento é su- 
ficiente ou é preciso usar um progra- 
ma editor Assembler? Eu já tentei com 


um editor Assembler para o TRS-80, 
mas ao terminar de carregar o progra- 
ma, apareceram caracteres estranhos 
no vídeo. Soube que o editor Assem- 
bler para o TRS-80 em fita só serve pa- 
ra o TR$-80 Modelo |, e que o editor 
Assembler para o Modelo Ill só é dis- 
ponível em disquete e, portanto, seria 
impossível utilizá-lo no CP-300 sem 
drive. Existe no mercado editor As- 
sembler em fita para o TR$S-80 Mod. 
HH? Se o monitor residente do CP-300 
for suficiente, como devo proceder? 
(Jamil Mattar Valente, SC) 


MICRO SISTEMAS — Existem edito- 
res Assembler em fita para o TRS-80 
Mod. Ill, e podem ser perfeitamente 
utilizados no CP-300 ou CP-500. E é 
relativamente fácil conseguir uma có- 
pia com um colega ou mesmo através 
da Seção Classificados de MS. 

O monitor residente permite que se 
introduza, execute, e transfira da me- 
mória para a fita, e vice-versa, qualquer 
programa em linguagem de máquina, 
desde que se disponha dos necessários 
códigos-objeto (os hexadecimais que 
aparecem à esquerda de um programa 
assemblado). Os comandos necessários 
podem ser encontrados nas páginas 
131 a 136 do manual do equipamento 
e são, em resumo: 

S: substitui o conteúdo do endereço 
fornecido; 

J: salta para o endereço especificado e 
inicia a execução (por exemplo, se vo- 
cê introduziu o seu programa a partir 
do endereçamento 8000 usando o co- 
mando S, execute-o com J8000); 

T: transfere o programa da memória 
para a fita; 

C: carrega o programa da fita para a 
memória. 


Pergunta — Seria possível carregar mais 
de um programa (como se fossem da- 
dos) utilizando o comando DLOAD? 
(Marcelo B. Silveira, SP). 


MICRO SISTEMAS — É totalmente 
impossível carregar mais de um progra- 
ma no micro com a utilização da fun- 
ção DLOAD. No entanto, essa opera- 
ção — chamada MERGE — é extrema- 
mente fácil de ser estruturada por um 
programa em linguagem de máquina. 
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Um programa para os micros da linha Sinclair que utiliza 
o método da decomposição LU para a resolução de sistemas lineares 








Decomposição LU 
para sistemas lineares 


Álvaro Rodolfo De Pierro 





maior parte dos modelos matemáticos originados nas Se af) = 0, algoritmo troca a linha k com alguma linha 
diversas áreas do conhecimento, como por exemplo à pk<pen, tal que a k) + 0; se não houver nenhuma linha, a 
engenharia ou à economia, levam, em algum estágio, à masriz é singular e o sistema não tem solução única. O passo 


necessidade de resolver um ou mais sistemas de equa- i i i : 
ções algébricas lineares. Em vista disso, é de máxima importên- seguinte é resolver o sistema triangular definido pelos 


cia dispor-se de uma rotina eficiente para este fim, entendendo 





por eficiência o balanço de três fatores fundamentais: estabili- = O ( FADE 
dade numérica (mínimo crescimento dos erros de saída com- ERA o ic RR 
parados com os erros na entrada de dados), espaço ocupado na E ER) 
memória e tempo de resposta. b Us b 4 O e RA 
Nosso problema consiste em resolver o sistema (expresso na 
forma matricial) Ax = b (1), onde: 
As DEDE a 4) ásia Mi pre ssh ou seja, 
é uma matriz de ordem n não singular e = 
gu. 4, x) + uu), x, + sda + ta = om be 
x = (x;) e bs= (b;) (3) 
u E ag eh ss: 
são vetores de ordem n.' 22 2... “on bo 
O método clássico utilizado para resolver este sistema é a Ros ] A 
Eliminação de Gauss, que produz uma matriz triangular supe- Cela mB, 
rior, eliminando sequencialmente os elementos abaixo da dia- au NA B 
inci i i - - ” sam 
gonal principal, resultando o seguinte algoritmo com o seguinte algoritmo de substituição regressiva: 
para k = 1 até n-1 
para 1 = k+1 até n (2) x eba 
(k) E 2 
RR CE ia para i = n-1 até 1 (4) 
alk) kk e n 
pe Fa RD sds Ui DE 
para j = k+1 até n 2 e à js + 2.) J di 
(k+7) (k) (k) os - f : ç 
seja ai) 243 Mk dy sendo que, se u;; = O para algum i, a matriz A é singular. É fácil 
ALE ad p 08) E verificar que, se at) + Oparak= 1,..,n,a matriz A é exa- 
i Eat: Cie 


tamente o produto das matrizes (ver referência bibliográfica): 
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1 número de operações (multiplicações/divisões) para a Elimina- 
ção de Gauss é da ordem de pº aproximadamente e o número 
21 de operações para resolver um sistema triangular por substitui- 
ção gira em torno de 02 em termos computacionais fica mui- 
to mais econômico — Se for necessário resolver diferentes siste- 
mas com a mesma matriz —, usar a decomposição LU e resol- 
ver dois sistemas triangulares do que aplicar a Eliminação de 
Gauss para o vetor b. Por outro lado, como L e U são triangu- 
lares, podem ser armazenadas no lugar de A sem perdê-la, já 
e que esta pode ser reconstruída através do produto. 
Vejamos um exemplo. Seja a matriz de 3 x 3 


(6) 


-1 2 
ou seja, A = LU, e portanto o sistema (1) é equivalente a L seria a matriz triangular abaixo da diagonal principal, com 


LUx =bou uns” na diagonal, e U seria a matriz acima da diagonal prin- 

Ma cipal com esta incluída. 

y : Se o vetor b for (4, 9, 5)t, deveríamos então resolver 
7) 
a =y y1 = 4 
A 2y, + y2 9 

e o cálculo da solução reduz-se ao cálculo da solução de dois RCE 
sistemas triangulares como em (3). Tendo em conta que o : e Ed » 





Para você que tem um microcomputador CP 500, 
Digitus, Naja ou qualquer outro da linha TRS 80, a Nasajon 
Sistemas está oferecendo uma série de programas que 
podem agilizar ainda mais as diversas áreas de sua empresa. 

Marque uma visita e venha assistir a demonstração 
de nossos mais de 50 programas para as áreas de: 
Contabilidade, Folha de Pagamento, Controle de Estoque, 
Tesouraria, Mala Direta, Contas a Pagar/Receber, 
Crediário, Administração de Imóveis, Controle de Custos, 
Arquivo de Processos, Administração de Consultórios e 
outros. 

A Nasajon Sistemas também desenvolve qualquer 
tipo de software específico, de acordo com as necessidades 
de sua empresa, além de oferecer assessoria completa de 
implantação, análise, treinamento e apoio. 

Venha ver como é importante fazer um programa 
diferente para o seu computador. 


OÇÃO 
PROMOÇ Preços (Cr$) 


Folha de Pagamento 


e 
Controle de Estoau! 
Contabilidade 
Tesouraria (€ 


Av. Rio Branco, 45 grupo 1311 
Tel.:(021) 263-1241 — 233-0615 
CEP 20090 — Rio de Janeiro 





ar Recebe 


Contas a Pag /Ed. Texto) 


Mala Direta (€ 
Crediário 








Você encontra esses e outros programas em nossos Revendedores Credenciados: 


Rio de Janeiro: Casa Garson: 252-9191 — Eldorado Computadores: 227-0791 — Bits e Bytes: 322-1920 — Micronews: 252-9420 
Salvador: Officina: 248-6666 r. 268 — Sysdata: 242-9394 — Pelotas - R$: Processa: (0532) 25-4741 


Empresa filiada à ASSESPRO 


Quatro. Repetição 


DECOMPOSIÇÃO LU PARA SISTEMAS LINEARES 
automática de carac- 


CLAPPY LANÇA 
























teres. 
Cinco. Diagnóstico 
. 
a de teste automático 
Decomposição LU E 
enha conhecer o 
8000 REM "LU+S" 8260 LET AB=ABS (A(P(I),K)) 8540 PRINT "B(";I;")=";B(I) gui pessoalmente na 
8010 REM LEITURA DA DIMENSAO N E 8270 IF MAX>=AB THEN GOTO 8300 8550 NEXT I Cl li It 
DA MATRIZ A 8280 LET MAX=AB 8560 PAUSE 360 VISITA ou poa 46 
8020 DIM P(20) 8290 LET KP=I 8570 CLS im 
8030 DIM A(20,20) 8300 NEXT 1 8580 REM SUBSTITUICAO PROGRESSIV e ons tor 
8040 PRINT "FORNECA A ORDEM DA M 8310 IF MAX=0 THEN GOTO 8440 A e Técnico Clappy no 
ATRIZ:N" 8320 LET KPP=P(K) 8590 LET X(1)=B(P(1)) 
8050 INPUT N 8330 LET P(K)=P(KP) 8600 FOR I=2 TO N seu escritório, 
8060 PRINT "N=";N 8340 LET P(KP)=KPP 8610 LET X(I)=B(P(1)) P N Aliás, na Clap) y 
8070 PRINT "FORNECA A MATRIZ A P 8350 FOR I=K+1 TO N 8620 FOR J=1 TO I-1 
OR LINHA" 8360 LET A(P(I),K)=A(P(I),K)/A(P 8630 LET X(I)=X(I)-A(P(I),J)*X(J você encontra tu O 0 
8080 FOR I=1 TO N (K),K) ) que precisa em 
8090 FOR J=1 TO N 8370 FOR J=K+1 TO N 8640 NEXT J 






E ado gap laço 





















8100 INPUT A(I,J) 8380 LET A(P(I) ,J)=A(P(I),9)-A(P 8650 NEXT I ) 
saio PRINT "A(";I;",";];")=";A(I EE ER EE Da) ESao Ea AP e ae np éricos, suprimen- 
' NE) 7 x(N)= N),N 
8120 NEXT J 8400 NEXT I 8680 FOR L=2 TO N : d softwares. Fr 
8130 NEXT 1 8410 NEXT K 8690 LET I=N+1-L e curs 
8140 PAUSE 360 8420 IF A(P(N),N)=0 THEN GOTO 84 8700 LET S=0 - c os próprios e 
8150 CLS 40 8710 FOR J=I+1 TO N programação e 
8160 REM DECOMPOSICAO LU COM PIV 8430 GOTO 8460 8720 LET S=S+A(P(I),0) *xX(9) 
OTEAMENTO PARCIAL 8440 PRINT "MATRIZ SINGULAR: PIV 8730 NEXT J operação, assistência 
8170 REM INICIALIZA O VETOR PERM OT NULO; O SISTEMA NAO TEM SOLU 8740 LET X(I)=X(I)-S)/A(P(I),1) técnica, implantação 
UTACAO CAO UNICA" 8750 NEXT L 
8180 FOR I=1 TO N 8450 GoTO 8470 8760 PRINT “"SOLUCAO DE AX=B" e instalação de siste- 
8190 LET P(I)=I 8460 GOTO 8490 8770 FOR J=1 TO N mas. E mais. 
8200 NEXT 1 8470 STOP 8780 PRINT "X(";];")=";X(9) 
8210 REM COMECA O CALCULO DE L E 8480 REM ROTINA DE SUBSTITUICAO 8790 NEXT J Aplicativos 
U 8490 DIM B(20) 8800 STOP comerciais: contabili- 
8220 FOR K=1 TO N-1 8500 DIM X(20) dad l d 
8230 REM CALCULA O PIVOT ss10 PRINT "FORNECA O VETOR B" e, controle de 
8240 LET MAX=0 FOR I=1 TO N 
O a 8530 INPUT DLL) rs O a 
, 
pagar e a receber. 
o que daria yy = 4,y2 = 1 e y3 = 2, resolvendo seguidamente Aplicativos de 
“e apoio: planilha 
É financeira, processa- 
mt 0 mento de dados 


mala direta, adro 
o controle financeiro, 
gráficos, etc. 

Seja por venda, 
seja por leasing, 
ninguém pode azer 
Es preço melhor do 





SUA MS au 


donde a solução de Ax = bseráxy = 1,x) =2ex, =3. 


A 
TODO MES | Para garantir estabilidade na eliminação e evitar o caso 
. aço = 0, cada iteração de (2) se faz trocando linhas (o que 


não modifica a soiação do sistema) e escolhendo a linha com o 


Se você deseja assinar MICRO SISTEMAS, preencha o maior valor de / alk 





cupom abaixo (ou uma xerox, caso você não queira 
cortar a revista): 


nome 





empresa. 


profissão/cargo. 





endereço para remessa 





cidade. 





Assinatura anual 

Micro Sistemas 

O Informática & Administração 
Micro Sistemas + Informática & 
Administração Cr$ 36.000,00 


Preencha um cheque nominal à ATI Editora Ltda e envie 
para: 

Av. Presidente Wilson, 165/grupo- 1210, Centro, Rio de 
Janeiro, RJ, CEP 20030 - tels.: (021) 262-5259 

R. Oliveira Dias, 153, Jardim Paulista, São Paulo, SP, CEP 
01433 - tels.: (011) 853-7758, 881-5668 e 853-3800. 
Seu recibo será enviado pelo correio. 


Cr$ 20.000,00 
Cr$ 20.000,00 














pk/, k<p<n. Para ganhar tempo de com- 
putação, no lugar de efetuar a troca, esta é guardada num vetor 
da memória. 

Apresentamos a seguir uma descrição completa, em BASIC 
do ZX81, do algoritmo proposto, o qual, com mínimas modifi- 
cações, pode ser implementado em qualquer um dos micros 
existentes no mercado. 

O programa está dividido em duas partes: a primeira, até a 
instrução 8400, contém a decomposição LU de A; a segunda 
parte, dada a decomposição da matriz, requer a entrada do ve- 
tor b como dado. Para realizá-la, usa-se a decomposição da pri- 
meira parte, cuja informação está contida na matriz A, e o ve- 
tor p, que contém as trocas de linhas. 
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FORSYTHE, M, Computer Solution of Linear Algebaric foda s- 
tems, Prentice-Hall (1969). 
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que a Clappy. 


| QUER unitron 
DIZER TECLADO lazer 


loja e sobreloja. 

bs Tel.: (021) 253-3395 
Centro: R. Sete de Setembro, 
88-loja Q guia) 
Tel.: (021) 222-5517/222-5721 
Copacabana: Rua Pompeu 


Loureiro, 99. 


O TIéomaisnovo um teclado gerador em e ques a Tel.: (021) 257-4398/236-7175 
microcomputador da de caracteres para a Redefinição e Aberta ci das 
Unitron. ; e portuguesa. das posições da tecla sábados das 9 às 14 horas. 

Ele tem um mi- a o que este pelo próprio usuário. Estacionamento próprio. 
croprocessador 6504 oclado e fazer: ês. Modo de a ta 
e um teclado ogramação operação igual à Entregamos em todo 
inteligente. Isto é, de funções especiais máquina de escrever. Brasil pelo reembolso Varig. 








Você que tem vários amigos e contatos comerciais, não arrisque! Guarde 
todos os telefones e endereços no seu HP-85 e consulte-o sempre que quiser 








Endereço e telefone? 
Listel responde 


idéia que motivou a elabora- 

ção deste programa foi a de 

conseguir processar informa- 

ção em cadeias de caracteres 
no micro HP-85. Como se sabe, este mi- 
cro se destina, principalmente, ao proces- 
samento de dados numéricos, apresen- 
tando, por conseguinte, certas limitações 
quanto à manipulação de strings. Por is- 
so, e pelo fato de que este programa adap- 
ta-se facilmente a qualquer outro tipo 
de criação de arquivos hão-numéricos, 
utilizamos como exemplo de utilitário 
um caderno de telefones — o Listel. 





LISTA TELEFONICA 


LISTAR LETRA MODIF LIMPAR 
ENTRAR NOME FONE ENDEPC 





ds 


Figura 1 





52 


Louis Carlos Mello 


tc) LOUIS CARLOS MELLO 
RIO DE JANEIRO 01-01/64 
ARQUIVO TELEFONICO 
qe Ee VER AS INSTRUCO 
INPUT us 
IF V$="S" THEN 78 ELSE sg 
GOSUB 2928 
Ls="" 
DIM ASCZ0].BSC46I.CsSCIGI,AIS 
[30] B1$C40].CISCIOI.PsSLSaGaA 
Pipa naã «KC208), 08054], SS$C4 


CLEAR & O$="ENTRE NOME(3A CA 
PR >, ENDERECOC4G CAP.) E FONE 


2 TO "REGIST" 
1 TO "AROTEL" 


TO INF 


INPUT A$,B$,C$ 

IF Af="FIM" THEN 236 

PRINTS 1.C , A$,B$.Cs 

NEXT 1 

L=0-1 

! FECHAMENTO 

PRINTE 9,1 ; L 

ASSIGNA 1 TO + 

ASSIGNA 9 TO + 

PRINT "NOMES REGISTRADOS=";L 
PRINT & PRINT & PRINT 

GOSUB ssa 

CLEAR & DISP “ENDERECO NAO E 
NCONTRADO" & BEEP E WAIT 268 
ee coro «sa 

CLEAR E DISP "QUAL O NOME QU 
E DESEJA VER" 





INPUT As 

frito 1 TO "ARQTEL” 

FOR I=1 TO INF 

Csç+1 

READ4 1,C , AIS,B$,C$ 

ON ERPOR GOTO 724 

IF R1$=AS THEN 420 

NEXT 1 

! IMPRIMIR FICHA 

ASSIGNA 1 TO 3 

PRINT "NOME -";AS 

PRINT "ENDERECO:",B$ 

PRINT “FONE-",C$ 

PRINT & PRINT 

Goto s8a 

CLEAR & DISP * LISTA 

TELEFONICA" 

ON KEv4 1, "ENTRAR" GOTO 128 
KEY4 2, "NOME" GOTO 3184 
KEY8 3, "FONE" GOTO 618 
KEv4 4, "ENDERC" GOTO 736 
KEYA S. "LISTAR" GOTO 856 
KEy4 6, "LETRA" GOTO 1146 
KEvR 7."MODIF" GOTO 1376 

ON KEy4 S, "LIMPAR" GOTO 1450 

KEY LABEL 

Goto sse 

RETURN 

STOP 

CLEAR É DISP “ENTRE O NUMERO 

TELEFONICO” 

INPUT Cs 

ASSIGNA 1 TO “ARQTEL* 

C=8 

C=C+1 

FOR I=1 TO INF 

C=C+1 

READA 1.C ; AS.B$,CIS 

IF C1$=C$ THEN 420 

ON ERROR GOTO 838 

NEXT 1 

CLEAR é DISP ” NOME NAO ENC 

ONTRADO" & BEEP € WAIT 2004 

e GOTO saa 

CLEAR € DISP "ENTRE O ENDERE 
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co" 
INPUT BS 
ASSIGNS 1 TO “ARQTEL* 
C=0 
B FOR I=1 TO INÊ 
C=C+1 
READE 1.0 ; AS,BLS.CS 
ON ERROR GOTO 368 
IF Bis=B$ THEN 420 
NEXT 1 
CLEAR € DISP " NUMERO NAO E 
NCONTRADO" E BEEP & WAIT 200 
a e GOTO 486 
Ir L$4"" THEN B=2 & GOTO 135 


Essucne 1 TO “ARQTEL" 
=1 
e a 
C=ê 
FOR J=1 TO INF STEP 36 
C=C+1 
READS B.C ; AS 
IF A$="" THEN 986 
ON ERROR GOTO 989 
N=N+1 
PSCJ, 1+297=A4 
KCND=H 
NEXT d 
! ORDEM ALFABETICA 
FOR kK=1 TO N$30-30 STEP 36 
FOR J=K+38 TO N$30 STEP 38 
IF P$CK,K+29]<=P$EJ, +29] T 
HEN 1950 
R$=PSEK.k+25] 
PSEK,K+29]=P$EJ. J+293 
P$LJ, J+29]=R$ 
NEXT J 
NEXT K 
PRINT & PRINT “LISTA EM ORD 
EM ALFABETICA” 
PRINT 





FOR I=1 TO N$30 STEP 30 
PRINT PSCI,1+293 

NEXT I 

PRINT € PRINT 

GOTO 489 

CLEAR & DISP "QUAL A LETRA 
QUE DESEJA VER" 


2 TO "SCRETE* 
FOR I=1 TO 180 
G=G+1 
PRINTE 2,G , 29% 
NEXT 1 
ASSIGNA 1 TO "ARQTEL” 
CLEAR 
C=8 
N=8 
FOR I=1 TO INF 
CaC+1 
READA 1,C ; AS 
ON ERROR GOTO 1346 
IF A$="" THEN 1340 
IF L$=A$C1.1] THEN N=N+1 & 
PRINTE 2,N ; AS 
NEXT 1 
ASSIGNH 1 TO + & ASSIGNA 2 
TO + & GOTO B4a 
ASSIGNHA 2 TO “SCRETE” 
GOTO 676 
| MODIFICAR 
GOTO 1536 
ASSIGNA 9 to. “REGIST” 
READA 9.1 ; 
CLEAR E disp” as 
ASSIGNA 1 TO "ARQTEL* 
GOTO 178 
1 RETURN 
CLEAR & DISP “DIGITE 3 <GM 
INUSCULA)PZCONFIR- MAR“ 
INPUT 048 
Pia 048$="3" THEN 1488 ELSE 4 
PURGE “ARQTEL” & PURGE "SCR 
PURGE “REGIST” 
“ARQTEL”, 280,89 
"REGIST". 186,14 
"SCRETE”. 198,35 
GOTO 48 
CLEAR E DISP * 
MENLhES 
Dise 
ISP "1 -ADICIONAR" 
SER DISP "2-MANIPULAR” 
DISP "ESCOLHA SUA OPCAO" 
INPUT Y8 
IF Y8=1 THEN 1398 
IF Y8=2 THEN 1610 
CLEAR € DISP "MANIPULACAO S 
O PODE SER FEITA  COM.0 NO 
ME SE NAO SOUBER USE  ouT 
RA ROTINA." 
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DISP € DISP 
DISF “QUAL O NOME QUE DESEJ 
A VER" 
INPUT n1$ 
C=0 
ASSIGNS 1 TO “ARGTEL” 
FOR 1=1 TO INF 
C=C+1 
READA 1.C : A$S.B$,C$S 
IF AIS=AS THEN 1746 
ON EPROR GOTO 1730 
NEXT IT 
ASSIGNA 1 TO * € GOTO 726 
CLEAR e DISP DN "as 
DISP "END 
DISP “FONE ;es 
DISP & DISP “DESEJA MUDAR U 
M DOS ITENSCS-NI” 
INPUT xe+ 
IF K5$="S" ThEN 1816 
GoTo 480 
DISP & DISP "NOME=1,END =2 
E FONE=3" 
DISP “QUAL VOCE DESEJA MUDA 
p* 
INPUT XS 
IF X5=1 THEN X5$="NOME” 
IF X5=2 THEN X5$="ENDERECO" 
IF X45=3 THEN X5$="FONE” 
DISP € DISP "QUAL O NOVO "; 
Kss 
INPUT ses 
IF X5=1 THEN A$=S8$ 
IF X5=2 THEN B$=S8s 
IF X5=3 THEN C$s=sas 
CLEAR € DISP "NOME: ",AS 
DISP "ENO ";Bs 
DISP "FONE: ";C$ 
DISP € DISP € DISP “ESTA IN 
FORMACAO ESTA CORRETA” 
INPUT x5$ 
CLEAR & DISP “DESEJA MAIS M 
ANIPULACÃO* 
INPUT Y2$ 
IF Y2$="S* AND X5$="S” THEN 
PRINTE 1,C ; AS,B$.C$ E GO 
TO 2816 
IF X5$="5" THEN PRINTA 1.C 
: A$.B$,C$ E ASSIGNO 1 TO x 
e coro ssa 
CLEAR E GOTO 1810 
| INSTRUCOES 
CLEAR E DISP "USUARIO * 
DISP “Este sistema foi dese 
nvolvido visando a facili 
tar. ao maximo, * 
DISP "o seu emereso Observ 
acoes :* 
DISP 
DISP “i)Disite 'FIM' para t 
erminar as entradas ou adic 
oes ao arquivo;" 
DISP 
DISP "2)Nao se pode elimina 
r um campo do arquivo-loso 
muita atencao" 
DISP "quanto as inclusões e 
as exclu- soes:" 
IF U$="C" THEN 2156 
DISP 
DISP “APERTE 'CONT' PARA CO 
NTINUAR" 
PAUSE 
DISP 
DISP "3>Ha' somente 280 cam 
ros (rara instrucoes quan 
to a sua amplia-* 
DISP "cao,vide manual de 1n 
strucoes>;* 
DISP 
DISP “4)Limites estabe 2cid 
os rara o tamanho de cada 
item 30 carac-" 
DISP “teres por nome;40 por 
endereco e 18 por telefon 
es 
DISP 
DISP "S)Susestoes devem ser 
enviadas a'Louis Carlos M 
ello-Rua Volun-" 
DISP "tarios da Patria 102 
ciQ,Fone:" 
DISP "c821) 246-9582 * 
DISP E DISP * 
Obrigado” 
PRINT € PRINT 
IF V$="C" THEN CRT IS 1 € E 
ETURN 
WAIT 18006 
DISP & DISP "(PARA COPIAR P 
RESSIONE ";CHR$C67+125);")" 
INPUT US$ 
IF V$="C" THEN CRT IS 2 8 G 
oTO 2028 & GOTO 2326 
RETURN 








Este sistema funciona como um catá- 
logo de nomes, endereços e números, 
onde se pode procurar qualquer item do 
arquivo por qualquer das partes que o 

mpõem. Assim, através das teclas de- 
finidas pelo usuário (vide figura 1), ele 
pode acessar o arquivo central pelo no- 
me, endereco ou telefone. 


Pressionando-se a tecla especial 
LISTAR, por exemplo, todos os nomes 
incluídos no arquivo serão listados em 
ordem alfabética, seja qual for a ordem 
em que os dados tenham sido introduzi- 
dos. O usuário também poderá pedir 
uma listagem por letra, ou seja, apertan- 
do a tecla LETRA, o sistema pedirá qual 
a letra desejada e Goa et fazendo 
uma listagem em ordem alfabética de to- 
dos os nomes do arquivo que começam 
com aquela letra (esta operação, no en- 
tanto, poderá demorar sensivelmente 
mais do que as outras). 


Para entrar dados pela primeira vez, 
pressione a tecla ENTRAR. Antes disso, 
porém, é necessário criar os arquivos, o 
que pode ser feito através do próprio sis- 
tema, digitando RUN 1490 e ENDLINE 
(não se esqueça de digitar RUN depois 
para inicializar o programa). Agora, se 
você quiser eliminar arquivos indesejá- 
veis, aperte a tecla LIMPAR, efetuando 
assim um PURGE nos arquivos exis- 
tentes (três ao todo). Automaticamente 
será lançado um CREATE, gerando no- 
vamente os arquivos indispensáveis ao 
funcionamento do programa. 


Para adicionar ou modificar um cam- 
po do arquivo central, deve-se pressionar 
a tecla MODIF, quando então aparecerá, 
consequentemente, um menu que pede 
ao usuário para escolher entre as opções 
ADICIONAR ou MANIPULAR. MANI- 
PULAR significa modificar um dos itens 
de um nome já constante no arquivo; 
ADICIONAR significa juntar um novo 
nome ao arquivo existente. 


O sistema é totalmente PROMPTED, 
solicitando a informação necessária, 
quando necessária. Perguntas que devem 
ser respondidas com sim ou não preci- 
sam apenas de um S ou N. Lembramos 
ainda que o número máximo de entra- 
das é 200, o que pode ser modificado 
conforme a capacidade de seu equipa- 
mento. Este programa roda em um HP- 
85 em sua configuração básica, ocupan- 
do 13130 bytes. H 


Louis Carlos Mello estudou na Universidade 
de Nova York, EUA, especializando-se em Ma- 
temática. Atualmente é consultor financeiro 
autônomo, utilizando um HP-85 para cálculos 
na área em que atua. 

















este mês iremos tratar de um 
dos mais úteis comandos do 
SGM: o comando E (cria linha 
REM). Além disso, veremos 
detalhadamente a rotina SKEY, que é 
pec o coração do SGM. 
ara a digitação, utilizaremos o 
comando M que foi visto no mês 
passado. Inicie os trabalhos 
digitando POKE 16389,120 e NEW 
(não esqueça o comando NEW) e 
logo após carregue no micro o 
comando M. Quando terminar, a 
situação será a seguinte: o topo da 
memória conterá tudo o que foi 
digitado no mês anterior (esta 
área será protegida até mesmo do 
NEW) e a RAM normal conterá o 
programa BASIC utilizado para 
a gravação do SGM. 
Elimine as linhas 5 a 95, pois essa 
parte do programa não será mais 
utilizada. O restante (linhas 100 a 
150), usaremos novamente para a 
gravação do que for digitado este 
mês (este, alias, será o 
procedimento para os próximos 
meses). 
Tudo pronto, digite RAND USR 
31210 e entre no MICRO BUG. 
Deverá aparecer o nome no 
hs do vídeo e, na parte 
inferior, o cursor. Digite M 78D3 
e estaremos posicionados bem no 
início da rotina $KEY (não 


5» 


tecla valor hexa 


e a rotina . 


tecla valor hexa 


FDF7 k 
FBFZ L 
FZF7 ENTER 
EFF7 
DFFZ 
DFEF 
EFEF 
FZEF 
FBEF 
FDEF 
FDFB . 
FeBrB ESPACO 
F7FB EDIT 
EFFB AND 
DFFB THEN 
DFDF To 
EFDF seta 
F7ZDF seta 
FBDF seta 
FDDF seta 
FDFD GRAPHICS 
FBFD DELETE 
FZFD Calça 
EFFD OR 
DFFD STEP 
DFBF «= 
enhuma tecla pressionada 

Figura 1 

será necessário digitá-la, pois isso 

já foi feito). 

A ROTINA $KEY 


Esta é a rotina de leitura do teclado, 
aquela que mantém a ordem e os 
bons costumes dentro do MICRO 


tecla valor hexa 
F7BF < DEFB 
FBBF ,»= DEDF 
FDBF EEDF 
FBFE FóDF 
F7FE FADF 
EFFE FCDF 
DFFE FCFD 
DFZF FAFD 
EFZF FóFD 
F77F EEFD 
FB7F DEFD 
FDZF DEBF 
FCFZ EEBF 
FAF7 FóBF 
FóF7 FABF 
EEF7 FUNCTION FCBF 
DEF7 : FAFE 
DEEF FóFE 
EEEF EEFE 
FóEF DEFE 
FAEF DEZF 
FCEF EEZF 
FCFB F67F 
FAFB FAZF 
FórB FC7F 
EEFB EFBF 
FFFF 


Cro var gu 





BUG (veja a listagem 1). O seu 
funcionamento é semelhante ao 
INPUT do BASIC, porém ela não 
espera a entrada de um dado 
completo e sim identifica e 
processa as teclas no exato 
momento em que são 
posicionadas. Atenção: nunca 
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rotina SKEY 








(leitura do teclado) 
































78D3 CD BB 02 CALL 0288 ;schama SCAN KEYBOARD. 

78D6 7C LD A,H sreinicia se nao houver tecla 
78D7 FEFE CP FE press ou se for SHIFT. 

78D9 30 F8 JR NC,78D3 

78DB 44 LD B,H sidentifica tecla pressionada. 
78Dc AD LO €,L 

78DD CD BD 07 CALL 07BD 

78E0 7E LD A, CHL) 

78E1 FE 76 CP 76 sretorna se for ENTER. 

78E3 c8 RET Z 

78E4 FE 77 CP 77 sretorna se for DELETE. 

78E6 c8 RET Z 

78E7 FE CO cr co sexecuta SCLS. 

78E9 28 4D JR Z,7908 

78EB FE 74 CP 74 sexecuta SGRAPHICS. 

78ED 28 24 JR Z,7913 

78EF FE DE CP DE smanipula MFLAG. 

78Fí D4 96 78 CALL. Z,7896 

78F4 FE 75 CP 75 preset. 

78F6 CA EE 79 JP Z,79EE 

78F9 00 00 svago para mais um SHIFT. 
78FB 00 00 00 

78FE 00 00 svago para mais um SHIFT. 
7900 00 00 00 

7903 CB 77 BIT 6,4 sretorna se for tecla valida. 
7905 ce RET Z 

7906 418 CB JR 7803 preinícia SKEY. 






obs: os usuários que possuirem impressora podem fazer a 
seguinte alteração: 













CP DD 
CALL Z,0869 


78F9 FE DD 
78FB CC 69 08 


sverifica SHIFT T. 
sexecuta comando COPY. 








modifique essa rotina estando SKEY devolverá o valor do 

no MICRO BUG, pois pode caráter no acumulador (registrador A); 
haver perda de controle do caso contrário, o sistema executará 
sistema. Se você quiser mudar alguma função SHIFT ou 

algum valor ou parâmetro, simplesmente ignorará a tecla. 

faça-o com o programa em Vejamos como se processa, dentro de 
BASIC do mês passado. SKEY, o reconhecimento de uma 


A mecânica de SKEY é 
acionada por um CALL 78D3. A 
rotina esperará até que uma 
tecla ressionada. Se for 
ENTER, DELET ou qualquer 
outra tecla no intervalo de “a Z, 


tecla. A rotina 02BB é a SCAN 
KEYBOARD do sistema operacional. 
Quando ela é acionada, o sistema 
produz uma varredura nas linhas e 
colunas que compõem o 
chaveamento do teclado e retorna 


rotina SCONTROL 













(manipula MFLAG) 























7896 Dé DE SUB DE scalcula faixa 0-7. 

7898 47 LD B,A 

7899 DE 01 LD C,01 

7898 28 04 JR Z,78A1 ssalta se for bit O. 

789D CB 11 RL C scalcula operador logico. 
789F 10 FC DJNZ,789D 

78A1 3A 26 79 LD A,(7926) smanipula MFLAG. 

7844 AP XOoR C 

7845 32 26 79 LD (7926),A srepoe MFLAG. 

7848 JE FF LD A,FF sseta acumulador e prossegue. 
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com o valor da tecla pressionada no 
par HL (veja a figura 1). Esse valor 
pode, em alguns casos, ser usado para 
um reconhecimento, mas antes 

será preciso decodificá-lo para que haja 
uma perfeita identificação da tecla 
pressionada. O próximo é 
transferir o valor do par HL para o par 
BC e chamar a rotina 07BD, também 
do sistema operacional do micro. 

O resultado dessas operações será o 
acumulador (registrador A) contendo 
o valor do código da tecla em questão. 
Traçando um paralelo com o BASIC, 
seria algo semelhante a LET À = 
CODE INKEYS. 

As funções SHIFT operadas por 
SKEY são estabelecidas de duas 
formas: as vinculadas a MFLAG e as 
independentes, que podem ou não 
estar associadas a SFLAG. A MFLAG 
é a mais importante variável do sistema 


SUB DE 


11100001 - 11011110 = 00000011 
(255) (222) o) 








LD €,01 I 
c= 00000001 


RL € já 


c= S000001% 
+ ————— 








80000100 
+————— 


a 


- 10000010 











- 0000|1/000 

















- 10001010 








Figura 2 


e cada um de seus 8 bits representa 

um estado. Seu endereço no SGM é 
7926. 

O controle de MFLAG é feito pela 
rotina SCONTROL (listagem 2) que 
funciona da seguinte forma: a chamada 
CALL Z, 7896 pressupõe o acumulador 
com algum valor S] - Na prática, 
serão interpretadas apenas as teclas 
THEN, TO, STEP, LPRINT, LLIST, 
STOP, SLOW e FAST. O código da tecla 
pressionada é ajustado para a faixa 0-7 

a fim de se determinar o bit de MFLAG 
correspondente. Feito isso, esse bit é 
chaveado pela operação lógica XOR, ou 
seja, se o bit de MFLAG for 1, ele será 
ressetado (= 0); se for O, será setado 

(= 1). Acompanhe esse procedimento 

na figura 2, onde, por exemplo, 
MFLAG tem um valor qualquer e a 
tecla pressionada é SHIFT S ou 
LPRINT. Nesse exemplo, estaríamos 
mudando a velocidade de impressão 

do comando M (bit 3) sem, no entanto, 
alterar os outros bits de MFLAG. é 
Os outros tipos de SHIFT são de ação & 
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O COMANDO E E A ROTINA $KEY 








Listagem 3 





def 7CiS 
CALL 7BF7 
CALL 0F23 
LD HL,(7931) 
EX DE,HL 

LD HL,270F 
AND A 

SBC HL,DE 
JR NC,7C3C 
CALL 78Cí 


CALL OF28 
JP 7ASA 

EX DE,HL 
CALL 09D8 
JR NZ,7C56 
CALL 78Cí 


JR 7C36 
PUSH HL 

LD HL, (7933) 
LD BC,0006 
ADD HL,BC 
PUSH HL 

POP BC 

POP HL 

PUSH HL 

CALL 099E 
POP HL 

LD DE, (7931) 
LD <HL),D 
INC HL 

LD (HL),E 
LD BC,(7933) 
INC BC 

INC BC 

INC HL 

LO (HL),C 
INC HL 

LD (HL),B 
INC HL 

LD (HL),EA 
LD A, (7935) 
INC HL 

LD (HL),A 
PUSH HL 

POP DE 

INC DE 

DEC BC 

DEC BC 

DEC BC 

BIT 7,8 

INC BC 

JR NZ,7C8C 
LDIR 

LD (HL),76 
LD HL, (4010) 
LD BC,0349 
AND A 

SBC HL,BC 
LD (400C),HL 
JR 7036 


scomando E 
schama SORG. 





snumero da linha Basic. 


verifica se a linha e” )9999. 


simprime mensagem 
LINHA ILEGAL. 


;SLOW. 
reset. 

sidentifica endereco da linha 
dentro do programa Basic. 


s imprime mensagem 
LINHA EXISTENTE. 


preset. 
squant idade de caracteres +ó. 


sexpande o programa para 
inserir linha REM. 


scoloca o numero da linha no 
programa Basic. 


scoloca quant idade de 
elementos da linha. 


scoloca codigo REM. 


scoloca os caracteres da 
linha REM. 


scoloca ENTER. 
scalcula novo D-FILE. 


reset. 





direta, ou seja, são executados assim 
que a tecla correspondente for 
pressionada. Dessa forma SHIFT Q 
causa um CLS no vídeo e SHIFT i 
produz um RESET geral do sistema, 
cancelando qualquer operação em 
andamento. SHIFT 9, que é o modo 
GRAPHICS do cursor, não produz 
ação direta, porém manipula SFLAG 
com uma operação XOR semelhante 
à vista anteriormente. 





O COMANDO E 





Este é, sem dúvida, o comando mais 
bem vindo para todos os usuários que 
digitam programas em linguagem de 
máquina, pois ele cria linhas REM com 
qualquer quantidade de caracteres, com 
qualquer tipo de caráter e em qualquer 
lugar de um programa BASIC. Parece 
ser uma operação complexa, mas na 
verdade não é. Devemos partir do 
princípio de que, a toda hora, o micro 
está criando linhas; resta então saber 
onde, no sistema operacional, ele faz 
isso e, literalmente, ir de carona nesse 
procedimento. 

A listagem 3 apresenta o sistema todo do 
comando E e a listagem 4 a rotina 
SORG. São essas as únicas listagens a 
serem digitadas este mês, lembrando 
sempre que qualquer implementação 
deve ser feita com uma correspondente 
alteração da Tabela de Definição dos 
Comandos. 

Vejamos, em primeiro lugar, como 
funciona a rotina $ORG, pois ela é 
utilizada por quase todos os comandos 
do SGM. Sua função é organizar a 
entrada de parâmetros via teclado. Toda 
vez que ela for chamada, haverá o 
cálculo de um valor a partir da posição 
de vídeo AT21,3. Este será o 

primeiro parâmetro, o qual será 
arquivado nos endereços 7931/7932. 
A seguir, o que for encontrado após 

a vírgula será calculado como 

segundo parâmetro e arquivado nos 
endereços 7933/7934 (se não houver 
nenhum dígito, o valor zero será 
assumido). Por último, após a próxima 
vírgula, o dígito encontrado será 
interpretado como um caráter e 
arquivado no endereço 7935. Feito isso, 
$ORG retorna ao ponto em que 

foi chamada. 

O comando E inicia sua operação 
chamando a rotina SORG para a 
organização de seus parâmetros, ou 
seja: RO DA LINHA REM, 
QUANTIDADE DE CARACTERES, 
CARATER. A vírgula funciona como 
delimitador de campo; assim, o 
comando E 1, 4, * resultará em 

1 REM ****. Seo caráter for omitido 
o comando assumirá um espaço como 
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Listagem 4 








rotina SORG 








7BF7Z AF XoR A 
7BF8B D7 RST 10 
7BF9 CD 52 7A CALL 7AS2 
7BFC B7 OR A 
7BFD CA 4A ZA JP Z,7A4A 
7coo CD 9E ZA CALL ZAPE 


7CO3 ED 53 31 79 LD (7931),DE 
7co7 23 INC HL 

7Cos CD AZ 7A CALL 7AA7 
7COB ED 53 33 79 LD (7933),DE 


7cor 23 INC HL 
7c1o 7E LD A, CHL) 
7Ciíi 32 35 79 LD (7935),A 
7Cíi4 C9 RET 


tal (valor de default = 0). Note que este 
comando opera em FAST após essa 
fase, pois a mudança do arquivo de 
imagem durante a expansão do 
programa BASIC é crítica, e se fosse 
feita em SLOW o sistema perderia o 
controle do sinal de vídeo, acarretando 
um RESET geral. 

A próxima rotina do sistema 
operacional a ser utilizada é a que 
inicia no endereço 09D8. Ela 


(organiza parametros dos comandos) 















;imprime espaco apos comando. 






schama SCURSOR. 
sreset se nao houver valor. 








scalcula primeiro valor. 







scalcula segundo valor. 







pidentifica o caracter. 






pretorna. 





identifica o endereço onde está a linha 
cujo número consta no par HL. Quando 
retornar, HL conterá o endereço da 
linha (caso em que o Zero flag estará 
setado: Z = 1) ou o endereço da linha 
imediatamente superior (Z = 0). Desse 
modo, fica fácil saber se já existe alguma 
linha com a numeração desejada. 

O próximo passo é expandir o programa 
BASIC e, consequentemente, o 

arquivo de imagem e a área de 





variáveis. Isso é feito pela rotina 099E, 
lembrando que, à quantidade solicitada 
pelo usuário, deverão ser acrescidos 
mais 6 bytes: número da linha (2), 
quantidade de elementos (2), código da 
instrução REM (1) e o ENTER do 
final (1). Para terminar, o comando faz 
a gravação dos caracteres e retorna à 
velocidade SLOW. 
Finalizando, vamos fazer uma 
gravação do MICRO BUG para 
podermos continuar no próximo mês. 
Para tanto, use o programa BASIC do 
mês anterior (apenas as linhas 100 a 
150) e digite RUN. Se você estiver 
encontrando alguma dificuldade na 
compreensão ou implementação de 
algum comando, escreva-nos e 
indique na carta “Projeto MICRO 
BUG”. Para agilizar a resposta, 
mande também um envelope endereçado 
= 


e selado. Até a próxima. E 





Este projeto vem sendo desenvolvido pela 
equipe do CPD de MICRO SISTEMAS, sob a 
coordenação de Renato Degiovani. 





PUBLICAÇÕES PARA COMPUTADORES 
sSincisim 


* APLICAÇÕES SÉRIAS PARA TK 85 E CP 200 
CR$ 9.000 


Quem é Sinclair? — Convertendo outros Basics - Contando os Bytes — Economi- 
zando Memória — Fluxogramas — Top Down — Erros da ROM — Conhecendo a Im- 
pressora — Chaining Programas — Sub-rotinas em Cassette — Folha de Pagamento — 
Balancete — Correção Monetária do Imobilizado — Das Contribuições do IAPAS — 
Contas a Receber — Cadastro de Clientes — Conta Bancária — Correção de Provas — 
Processador de Textos — Estatística — Custos — Orçamento Doméstico - Ram To- 
per e Data File em Código — etc. 


32 Edição, atualizada e com nova composição gráfica 


* 45 PROGRAMAS PRONTOS PARA RODAR EM TK 82C E NE Z800 


82 Edição, reimpressa CR$ 5.500 
Arquivos — Estoque — Plano Contábil — Folha de Pagamento — Agenda Telefônica 


Caça ao Pato — Trilha — Jogo da Velha — Forca — Dado — Tabelas — Tabuada — 
Conversão de Coordenadas — Média — Progressão — Tabela Price — Fibonacci — De- 
preciação - Renumerador de linhas em Código — etc... 


MICRON ELETRÔNICA COM. IND. LTDA. 


* 30 JOGOS PARA TK 82C E CP 200 
32 Edição CR$ 6.000 
Damas — Labirinto — Enterprise — Golfe — Velha — Visita ao Castelo Cassino — 
Roleta Russa — Corrida de Cavalos — Vinte e Um — Cubo Mágico — Senha — Banco 
Imobiliário — Forca — Dados — Invasores — etc. 

PROGRAMAS NO CÓDIGO DA MÁQUINA 
Inversão de Vídeo — Som por Software — Labirinto — Destrava Soft 


* CÓDIGO DE MÁQUINA PARA TK E CP 200 


1º Edição CR$ 9.000 


Números Binários e Hexadecimais — Arquitetura do Z80 — Editando em Código — 
Programa para Edição — As Instruções do Z80 em Exemplos Sub-rotinas da ROM — 
A ROM de 8K — Dicionário das Instruções — Hex X Mnemonicos — Hex X Deci- 
mal — Incluindo os Programas Scroll — Save Display no Ram Top — Contadores de 
Pontos ou Tempo — Datafile — Renumber — Labirinto — som por Software — Mi- 


cron Pac — Bombardeio etc. . 








úmeros aleatórios 





Na Seção Cartas de MS nº 25, o leitor Décio Decaro nos pedia um artigo para gerar números aleatórios 
na sua HP-41C. Em resposta ao seu pedido, diversos leitores nos enviaram suas fórmulas e programas 


para ajudar a resolver o problema. Embora tenhamos remeti 


do todas as colaborações que nos chegaram 


para o Décio, por uma questão de espaço selecionamos apenas uma para publicação. Queremos, no 
entanto, deixar aqui registrado os nossos agradecimentos — e os do Décio também, que inclusive já 
nos escreveu agradecendo a todos pela grande ajuda — aos leitores que mandaram suas colaborações. 





Paulo Alfredo Lucena Borges-RS 


ponto de partida do gerador de números aleatórios 
é a fórmula que vai gerar estes números (é possível 





E: 


ER 


ÇÃO 


NÃO É PROBLEMA 


não importa o tamanho de seu problema, 
nós temos a solução na medida exata! 


CP-200 com 


LINGUAGEM BASIC 
16 K DE MEMÓRIA 


MODULAR 
LINGUAGEM BASIC 


LINGUAGEM BASIC 


VELOCIDADE 100 CPS 


* E 48 K DE MEMÓRIA 
que algum purista diga que, pelo fato de se usarem PASSO K COMENTÁRIO VELOCIDADE DE 48 K DE MEMÓRIA CE DHIVES NE a 
fórmulas, os números deixam de ser aleatórios, mas 01 LBL ALEA———nome da rotina TRANSFERÊNCIA 14 VE- COMPATÍVEL COM SAIDA PARALELA SE PARALELA 
isto não vem ao caso agora). 02 9821 ZES MAIS RÁPIDA SOFTWARE DO CP-500 RIAL SERIAL 

O livro de “Aplicações"* da HP-41C (pág. 26) traz a seguinte A A = a p 
fórmula: 03 RCL 00————» contém a "semente do número 

aleatório 
= FRAC(9821 29132 4 
Ene] ; + MR “sa 05 .211327 TRAÇADOR 
E, GRÁFICO 


Onde rn é a semente do número e rn+1 é O número aleatório 
gerado. Através do manual de uma antiga calculadora Dismac, 
tem-se conhecimento de outra fórmula: 

5 


r = FRACGU MAR) 
n+1 n 


Todas as duas são eficientes, porém a do livro de “Aplica- 





07 


08 


09 


FRC————» Aº aleatório gerado (entre 0 
a do 


STO 00————+» o próprio nº gerado vai ser- 
vir de "semente" para o ne 
seguinte 


RCL 02————» limite superior do intervalo 





ções” “passa pelo teste espectral (Kuth, V. 28 3.4) e, por isso, (No) 
seus parâmetros satisfazem o Teorema A (página 15 do livro “ 2 ) MICRO: IMPRESSORA: 
“Aplicações”), e gera um milhão de números aleatórios distin- 10 RCL 01—————» limite inferior do intervalo LINGUAGENS COBOL, e VELOCIDADE 130 CPS VELOCIDADE 200 CPS 
tos entre 0 e 1 (...)”. (N4) BASIC E FORTRAN e MATRIZ7x9 MATRIZ 7x9 SRENAS 
Sem dúvida, existem outras fórmulas que também podem 1 -—————— obtém a amplitude do interva 64 K DE MEMÓRIA e 132COLUNAS INTERFACE: AREA DE TRAÇADO 
ser utilizadas, e fica a critério do usuário escolher qual a que lo DUAS UNIDADES DE | e ORIGINAL +5 CÓPIAS PARALELA, dO ires 
melhor lhe convém. Após esta escolha, o próximo passo é a 12 * DISCO SERIAL INTERFACE R$-232 
implementação de uma rotina para gerar os números aleató- 13 RCL 03 Fator de arredondamento para 


rios num determinado intervalo. Uma das possíveis soluções 
para gerar números aleatórios está no exemplo apresentado na 
figura 1. 

A execução, na primeira vez em que se usar este método, é 
feita da seguinte forma: 


o nº de casas decimais dese- 
jado (nº inteiro——RCL 03 = 
1, 1 casa decimal—RCL 03 = 
10, 2 casas— RCL 03 = 100, 
assim por diante) 


ACESSÓRIOS 


APROVEITE! 








1) introduzir a semente em STO 00 (qualquer número entre 14 * 
061); dus limite inferi STO 01: 15 INT arredondamento para o nº de 8 
a air E di in o en STO 02 (*) casas decimais especificado SOFTWARE € MESAS e DIS. PROMOÇÕES ESPECIAIS € 
3) introduzir o limite superior e ; 
4) introduzir o fator de arredondamento em STO 03º; 16 REL O QUETES * ARQUIVOS 6/1] 
5) XEQ! ALEA (**). 17 4 aaa RS aii ANCIAMENTO * LEA- 

E nas vezes seguintes, não é mais necessário introduzir a 18 RCL 01 . g 
semente para executar o programa. Quanto aos demais dados, E : NUOS * ESTABILIZADORES |] | SING * CONSÓRCIO € CAR- ! ; 
só deverão ser reintroduzidos se forem modificados. Us: número; desejado ( no mostras Filcres Importação.e Representações Ltda. 
(*) Para garantir que o limite superior do intervalo tenha dor) DE TENSÃO € UNIDADES TÕES DE CRÉDITO: CREDI- Rua Aurora, 165 — CEP 01209 — São Paulo — SP 
ioua ili enci i Telex 1131298 FILG BR — PBX 223-7388 — Ramais 2, 4 
igual probabilidade de ocorrência, é conveniente usar N2 + 20 RTN se e ' amais 2, 4, 
É Em STO 02, so irivés de No simplesmenite. a| DE DISCO FLEXIVEL S ETC. |] | CARD, NACIONAL, ELLO. 12, 18, 19 — Diretos: 223-1446, 222-3458, 220-5794 e 
(**) Se o uso da rotina for frequente, deve-se atribuí-la a uma e 220-9113 - Reembolso — Ramal 17 Direto: 222-0016 — 220-7718 





das teclas (modo USER). 





Figura 1 
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Com este programa para a linha TRS-80 você poderá obter, de forma rápida e precisa, 
uma análise da situação econômico-financeira de qualquer empresa 








Programe o balanço 
de sua empresa 


ste programa foi desenvolvido 
para equipamentos compatíveis 
com o TR$-80 modelos 1 e III e 
tem por objetivo estabelecer um 
modelo de análise econômico-financeira 
de acordo com os seguintes critérios: 
e os parâmetros de análise são equâni- 
mes para todas as empresas; 
e a análise pode ser aproveitada para 
qualquer setor ou dimensão de ativida- 
de; 
e o comportamento econômico-finan- 
ceiro das empresas é analisado com ba- 
se nos três últimos anos. 

O programa examina o comporta- 
mento da situação estática patrimonial 
(balanço patrimonial) e o comporta- 
mento da dinâmica patrimonial (de- 
monstrativo de lucros e perdas) das em- 
presas nos últimos três exercícios. Os 
parâmetros que dão subsídios para esta 
análise são os Quocientes Patrimoniais e 
os Quocientes de Variações Patrimoniais. 
Observação: caso a empresa não possua 
três balanços, deve-se atribuir para os 
dados relativos aos anos em que não te- 
nha balanço o valor 1. 

Os Quocientes Patrimoniais são cal- 
culados com relação à situação estática 
do patrimônio. Estes quocientes possibi- 
litam interpretações sobre as aplicações 
de capital e sua origem (capitais pró- 
prios e de terceiros). Os Quocientes de 
Variações, por sua vez, são calculados 
com relação à situação dinâmica do pa- 
trimônio, fornecendo importantes infor- 
mações sobre a circulação de capitais e 
sua rentabilidade. 
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Dorley de Jesus Godarth 





BALANÇO ANUAL: 


1984 





 FMPRESA: 
RAMO: 
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QUOCIENTES PATRIMONIAIS 


1 — Participação de terceiros 

Este quociente é representado pela 
comparação entre o capital próprio e a 
soma do exigível circulante com o exi- 
gível a longo prazo. Esta comparação é 
importante para fins de análise, pois evi- 
dencia se os capitais de terceiros envol- 
vidos na empresa superam ou não os ca- 
pitais próprios. 

Quando o quociente for menor que a 
unidade, está caracterizado que a em- 
presa utiliza mais recursos financeiros de 
terceiros do que recursos próprios (esta 
situação pode representar uma difícil 
solvência). 


Capital Próprio 
Passivo Real 


2 — Relação patrimonial global 

É o quociente obtido através da com- 
paração entre o ativo real e o passivo 
real, revelando a proporção global entre 
os recursos ativos e as exigibilidades 
reais para com terceiros. 


Ativo Real 


PT 
Passivo Real 


3 — Grau de saturação financeira 

Considera os débitos de financia- 
mentos (longo prazo) pelo capital pró- 
prio, denotando até que ponto houve 
comprometimento do capital próprio 
atual com dívidas contraídas a longo 
prazo. Através deste quociente, pode- 
mos avaliar a política de investimento 
que a empresa adota. 


Exigível a 

longo Prazo 

o 
Capital 
Próprio 


4-— Liquidez geral 

É o quociente obtido pelo agrupa- 
mento do ativo circulante com o realizá- 
vel a longo prazo, em confronto com o 
passivo circulante e o passivo a longo 
prazo. Este quociente revela a capacida- 
de da empresa em saldar as suas obriga- 
ções a curto e a longo prazo, fazendo 
uso dos recursos financeiros disponíveis 
e vencíveis para o mesmo período. 


Ativo Realizável 
Circulante + Longo Prazo 
EG 

Passivo Exigível 
Circulante + Longo Prazo 
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5 — Liquidez seca 

A liquidez seca é representada pela 
comparação do disponível mais os di- 
reitos realizáveis a curto prazo. Através 
deste quociente conhecemos a situação 
de solvabilidade da empresa face às suas 
obrigações, depois de recebidos os cré- 
ditos. 

Convém salientar que, para o cálculo 
deste quociente, no realizável a curto 
pao não é considerado o estoque. Em- 

ora faça parte desta conta, não há data 
certa de realização, pois estamos consi- 
derando apenas os direitos realizáveis a 
curto prazo. 


Ativo Cir- 
culante - Estoques 


LS 
Passivo Circulante 


6 — Liquidez corrente 

A comparação entre o ativo circulan- 
tee o passivo circulante nos fornece o 
quociente de liquidez corrente. Este 
quociente representa a capacidade de so- 
lução de compromissos vencíveis dentro 
de curto prazo. 


Ativo Circulante 
EG 


Passivo Circulante 


7 — Grau de endividamento 

É o confronto entre as exigibilidades 
e o patrimônio líquido, evidenciando a 
responsabilidade deste com os compro- 
missos assumidos a longo e a curto 
prazo. 


Passivo Real 
GE = 
Patrimônio 
Líquido 


QUOCIENTES DE 
VARIAÇÕES PATRIMONIAIS 


1 — Rotação do capital próprio 

Esta rotação é representada pela re- 
lação entre a receita operacional e o ca- 
pital próprio. Cada vez que a receita 
operacional atinge o valor do capital 
próprio, significa que ele foi movimen- 
tado uma vez. O quociente da receita 
operacional pelo capital próprio indicará 
quantas vezes este foi movimentado no 
exercício. 

A rotação do capital próprio é de 
grande importância, uma vez que do nú- 
mero de rotações depende o resultado 
econômico final. 


Receita 
Operacional 
RCP = 
Capital 
Proprio 


2 — Rentabilidade do patrimônio líquido 

Trata-se do quociente que revela a 
relação existente entre o lucro líquido e 
o patrimônio líquido aplicado na em- 
presa. 


Lucro Líquido 
RPL=———————— 
Patrimônio 
Líquido 


3 — Rentabilidade de faturamento 

É a relação existente entre o lucro lí- 
quido e a receita operacional da empre- 
sa. Este quociente revela a eficiência da 
empresa em obter de suas atividades, sua 
margem de ganho sobre a receita. 


Lucro Líquido 


Receita 
Operacional 





CONSIDERAÇÕES 





Para a análise de balanço pode-se uti- 
lizar um grande número de índices. Isto 
nos dá uma margem maior de escolha, 
ou seja, podemos utilizar parâmetros 
com pouca ou nenhuma importância 
conceitual, mas que apresentam situa- 
ção favorável, e preterir outros que, ape- 
sar de importantes, são desfavoráveis. 

Partindo desta premissa, analisaremos 
a situação econômico-financeira das em- 
presas através dos dez quocientes já 
identificados, mais os que normalmente 
são aplicados em uma análise. 

Os dez quocientes nos dão subsídios 
suficientemente abrangentes para poder- 
mos avaliar o equilíbrio econômico-fi- 
nanceiro das empresas. Assim, podemos 
conhecer a liquidez da empresa a curto 
e a longo prazo; a proporção de recursos 
próprios aplicados; a participação de ca- 
pitais de terceiros e a rotação que se 
obtém desses recursos; o comprometi- 
mento de seu capital próprio; e o patri- 
mônio líquido com as dívidas assumi- 
das. 

De posse da situação estática patri- 
monial, situação dinâmica patrimonial e 
dos quocientes calculados com base nos 
três últimos balanços, o analista poderá, 
dentro de margens seguras oferecidas pe- 
los subsídios que acabamos de ver, ava- 
liar o desempenho econômico-financeiro 
da empresa nos últimos anos, e ainda, na 
avaliação final, dependendo do desem- 
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PROGRAME O BALANÇO DE SUA EMPRESA 





penho da empresa, qualificá-la em um 
desses três conceitos: 


CÊ CPM 





RAMO : INDUSTRIA E COMERCIO e MÉDIO Análise de balan (4) Fa 
é REGULAR ç ONDE VOCÊ ENCONTRA 


A SOLUÇÃO! 


ANALISE ECONOMICA-FINANCEIRA 
Como exemplo de aplicação, supo- 
nhamos que uma empresa queira cadas- : . 
trar um fornecedor. Além de outros pro- "PROGRAMA ELABORADO POR DORLEY DE JESUS GODARTH — 24/12/63 
cedimentos, pode-se efetuar uma análise GOSUB 45000 
de balanços sobre os três últimos exer- CLEAR 2000 
cícios para avaliar a situação econômico- ar ANALISE REONONTOATRENANCETRADO o aa ese 
financeira deste fornecedor. ; AIS= "DISPONIVEL MORRI MMA 
A análise pode ser feita na tela ou vir A4$="REAL CURTO PRASO HERMANN MMA AM 
impressa. Caso o usuário adote a primei- ASS="REAL LONGO PRASO CAMERA MMA 
ra opção, após a entrada dos dados soli- A6$="IMOBILIZACÕES MAIOR MMA MS 
citados, serão mostrados na tela do mi- 


AZ$=" PASIVO” 
. . aê ABS="CAPITAL SOCIAL 
cro os Quocientes Patrimoniais e os A9$="NAO EXIGIVEL 
Quocientes de Variações Patrimoniais já B1$="EXIG CURTO PRASO 
descritos anteriormente. Na segunda op- B2$="EXIG LONGO PRASO 
ção, o programa fornecerá uma análise 

impressa, com campos para qualificar a 


“ESTE PROGRAMA EFETUA ANALISE DE BALANCO SOBRE 3 ANOS 
ATIVO 1981 1982 1983 , 

2000000 
85000000 
1000000 
30000000 


9000000 
200000000 
2000000 
70000000 


500000 
60000000 
1300000 
20000000 


DISPONIVEL 
REAL CURTO PRAZO 
REAL LONGO PRAZO 
IMOBILIZACOES 
PASIVO 
CAPITAL SOCIAL 
NAO EXIGIVEL 
EXIG CURTO PRAZO 
EXIG LONGO PRAZO 


35000000 
40000000 
80000000 

5000000 


45000000 
80000000 
150000000 
60000000 


24000000 
25000000 
35000000 
10000000 
HAHAHAHAHA EMI 
FERRARA HE A 7 
HERO HEHHHHHHHHO Me 
HERO MO A A 
HER MH A 
HCAM 
HEHE HUME E 


118000000 
85000000 
33000000 


281000000 
210000000 
71000000 


DISTRIBUIÇÃO DOS 
MELHORES SOFTWARES 
EXISTENTES NO MERCADO 


81800000 
45000000 
36800000 


ATIVO REAL 
PASSIVO REAL 


PATRIM LIQUIDO 
B3S="“ATIVO REAL 


B4$="PASIVO REAL 


PARTIC TERCEIROS 0.56 0.47 0.38 
B5$="PATRIM LIQUIDO 


REL PATRIM GLOBAL 1.82 1.39 1.34 


62 


GRAU SATUR FINANC 


LIQIUIDEZ SECA 
LIQUIDEZ GERAL 
LIQUIDEZ CORRENTE 


GRAU DE ENDIVIDAM 
RENDA OPERACIONAL 
LUCRO BRUTO 

LUCRO OPERACIONAL 
LUCRO LIQUIDO 
ROTAC CAPITAL PROP 
RENTAB PATRIM LIQ 
RENTAB FATURAMENTO 
ESTADO GERAL 


PARECER? ..ccenenes 


Segiência 
de entrada 


de dados 


no programa 


0.40 


1.67 
1.37 
1.73 
1.22 


45000000 
20000000 
9000000 
4000000 


0.13 


1.05 
1.04 
1.09 
2.58 


130000000 
45000000 
7000000 
2000000 


0.75 


1.37 
1.00 
1.39 
2.96 


300000000 
100000000 
20000000 
15000000 





1.80 3.25 3.75 
0.11 0.06 0.21 
0.09 0.02 0.05 


«« «MEDIO « + - REGULAR 





a) Razão social da empresa; 

b) Tipo de atividade; 

c) Anos a serem analisados; 

d) Introdução dos valores das seguintes 
contas para cada ano: 

1) Disponível 

2) Realizável curto prazo 

3) Realizável longo prazo 

4) Imobilizações (— depreciações) 

5) Estoque 


empresa como boa, média ou regular e 
espaço para se dar o parecer sobre o for- 
necedor (veja figura 1). 

Observação: convém salientar o por- 
quê do índice de imobilização não ter 
sido incluído no modelo. A exclusão de- 
ve-se ao fato de que procurou-se elabo- 
rar um modelo de análise que pudesse 
ter aplicação em qualquer setor da eco- 
nomia no qual as empresas estão integra- 
das. O índice de imobilização é impor- 
tante para o setor industrial e de trans- 
formação, sendo, no entanto, de pouca 
ou nenhuma importância para o setor de 
prestação de serviços. Acrescentando es- 
te parâmetro, estaríamos prejudicando a 
universalidade do modelo, uma de suas 
principais características. 





Dorley de Jesus Godarth é formado em Ad- 
ministração de Empresas pela Faculdade Ca- 
tólica de Administração e Economia, e traba- 
lha, desde 1978, na TELEPAR — Telecomu- 
nicações do Paraná S.A., Curitiba, PR. 


a Capital social 
7) Não exigível 
5) Exigível curto prazo 
9) Exigível longo prazo 
10) Renda operacional 
11) Lucro bruto 
12) Lucro operacional 
13) Lucro líquido; 
e) Opção de impressão ou não. 
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B6$="PARTIC TERCEIROS 
B9$="REL PATRIM GLOBAL 
C3$="GRAU SATUR FINANC 
C4$="LIQUIDEZ SECA 
C5$="LIQUIDEZ GERAL 
Có$="LIQUIDEZ CORRENTE 
C96="GRAU DE ENDIVIDAM 
D1$=7RENDA OPERACIONAL 
D2$="LUCRO BRUTO 
D35="LUCRO OPERACIONAL 
D4$="LUCRO LIQUIDO 
DS$="ROTAC CAPTAL PROP 
D6$="RENTAB PATRIM LIQG 
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DESENVOLVIMENTO DE 
SISTEMAS ESPECÍFICOS 


CP Central Panamericana 
de Microinformática 


Pça. Clóvis Bevilácqua, 121-2º and.-SP 
Tels. (011) 32-7752e 34-3057 





D7$="RENTAB FATURAMENTO HER HM MO O A 





DB$=“ESTADO GERAL -- «BOM « « « REGULAR” 


CIÊNCIA MODERNA 
COMPUTAÇÃO 


A Unica Especializada em Livros 
e Revistas p/ Microcomputação 


NOVIDADES NACIONAIS: 


PRINT“QUAL A RAZAO SOCIAL DA EMPRESA” 
INPUT E3$ 
PRINT 
PRINTYQUAL O RAMO DE ATIVIDADE “ 
INPUT E4$ 
FOR I=í TO 3 

S PRINTEIPRINT 
PRINTYQUAL Q ANO “;I; 
INPUT ACI) 
NEXT 1 
eLs 
CLS 
FOR I=í TO 3 
CLS 
PRINT“QUAL O DISPONIVEL DE “;A(I); 
INPUT B(I) 
PRINT 
PRINT“QUAL O REAL 
INPUT C(1) 
PRINT 
PRINT“QUAL O REAL. LONGO PRAZO DE “;ACI); 
INPUT D(I) 
PRINT 
PRINT“QUAL AS IMOBILIZACÕES DE “;ACI); 
INPUT EcI) 
PRINT 
PRINT“QUAL O ESTOQUE DE “;ACI); 
INPUT F(I> 
PRINT 
PRINTYQUAL O CAPITAL SOCIAL DE “;á(I); 
INPUT GCI) 
PRINT 
PRINT“QUAL O NAO EXIGIVEL DE “;ACI); 
INPUT HCI> 








TK Lembrando (Mirshawka) 6.000,00 
TK Calculando (Mirshawika) 6.500.00 
TK Divertindo (Mirshawka) 6.000.00 
Programação TK-82/TK-B3/TK-85/CP-200 

(Hurley) 3.600,00 
Aplicações Serias para TK-85 e CP-200 (Lima) 9.000,00 
Basik TK — Vol. | — Elementar (Rossini) 6.500.00 
Curso de Jogos em Basic TK (Rossini) 4.500.00 
1001 Aplicações para o seu Computador 

Pessoal (Sawusch) 10.800,00 
A nova Revolução Industrial na era dos 

Computadores (Osbome) 4.000.00 
Arquitetura Microprocessadores 

Microcomputadores Vol. | (Khambata) 16.500.00 
Iniciação ao Basic (Fox) 8.700,00 
Basic Introdutorio em sete lições (Segurato) 9.000,00 
Usando CP/M Um Guia em Ensino Programado 

(Ashley) 9.900,00 
Introdução aos Microcomputadores Vol. | 

(Osborme) 11.00.00 
Programas Usuais em Basic para Sistemas 

Compatíveis com o Apple || (Poole) 8.000.00 
Programas Usuais em Basic (Poole) 8.000.00 
Basic para crianças dos 8 aos Bb Vol. Il 

(Zabinski) 8 800.00 
d8/1! Sistemas Relacional para Gerenciamento 

de Banco de Dados — CP/M Assembler 3 

Volumes 89 000.00 


- CURTO PRAZO DE “;A(I); 





PRINT 
PRINT“QUAL O EXIGIVEL CURTO PRAZO DE “;AC(I); 


Visite-nos ou peça uma lista do 
nosso estoque especifica para seu micro. 





INPUT ICI) 

PRINT 

PRINT“QUAL O EXIGIVEL LONGO PRAZO DE “;A(I); 
INPUT J(I) 


Atendemos também por Reemb. Postal € Varig 
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Mi f ' PROGRAME O BALANÇO DE SUA EMPRESA 
FOR 
informática 760 PRINT 1610 LPRINTYEMPRESA: “;E35 Ene arri 
770 PRINT“QUAL A RENDA OPERACIONAL DE “;AC(I)s 1620 LPRINTORAMO 3 “;E4S : 
A - 780 INPUT KCI> 1630 LPRINT * INTERFACCIA PARALLELA GRAFICA PER Sº 
Assistência técnica: , 790 PRINT 1640 LPRINT A45 *!NTERACGU PARALELA SUPER PR neo met, ot 
E . ac. abbinare) 
a no : 800 PRINT“QUAL O LUCRO BRUTO DE “;ACI); 1650 LPRINT » TELES BE NEDA INTERPA PER TELECAMER ota 
E é é ê x namento: GRAFPAK cod. 300) Y 
- APPLE e : 810 INPUT LCI) 1660 LPRINTUSING AZS;A(L);ACZ);ACI) + SCHEDA 18 KILOBTES MEMORY CARO (PASCAL) “Gas 
- Autorizados: a B20 PRINT 1670 LPRINT * SINGOLO DRIVE 5” 1/4 140 K U.S. 410 
: : E 825 PRINT“QUAL O LUCRO OPERACIONAL DE “;ACI); 1680 LPRINTUSING A3S;BCL);BCZ);BCI) à DONO CONTRDRLER PER DRE U8s 410 
Prológica, Digituse - = E à PS tiadiba CONTROLLER PER DRIVE 5º e SLIM U.S.s 70 
5 B26 INPUT MCI) 1690 LPRINTUSING 2(4);C(2)70(3) * DOPPIO DRIVE 80/35 SLIM DOPPIA DENSITA, CAPACITA TOTALE 655.360 8 
Sysdata : 827 PRINT 1700 LPRINTUSING AS$;D(1);D(2);D(3) é SOFTWARE PER OPERANE NO PASCRO E CR per untá Doppko Beto Gore 
; 830 PRINT“QUAL O LUCRO LIQUIDO DE “;ACI); 1710 LPRINTUSING A6S;EC1);E(2);E(3) per ntá Dolo Dr ts 
* Contrato de 840 INPUT NCI) 4720 LPRINT AZ$ + DOPPIO DRIVE 805 SLIM DOPPIA DENSITA, DOPPIA FACCIA capacitá totalo 
: manutenção 940 0CD)=BCD+CCD+DCIDHECT) 4730 LPRINTUSING AB$;6(1);6(2);6(3) e SEMERA CAGICODER INTERFACCIA PER ENCODER OTIICI 2 CANAL VAR 
e 9250 PCD=ICD+JCD) 1740 LPRINTUSING )3H(2)FH63) . A MION DK PUNTI- SOFTWARE INCLUSO U.S.$ 580 
Desenvolvimentoe 760 Q(I)=0(I)-PCI) 1750 LPRINTUSING 33 ICB) 1C3) * EONTERTIORE ANALÓGICO piu LT as mo 
: | =| 1760 LPRINTUSING TES RATE + CONVERTITORE ANALOGICO DIGITALE À 12 BT 4 CA 
venda de software 970 R(I DCE a a LR EN ING Ip J(2I GCI) a DRTATO PANDA O 
ã 980 S(I)=0 /P<I) E * CONVERTITORE AJD A 12 BIT GUADAGNO PROGRAMMABILE, 2 CANAL! IN- 
Consultoria 990 TCD=SCIDZHCD) 4780 LPRINTUSING s0(2);0(3) PUT DIFFERENZIALI, AMPLIFICATORE A GUADAGNO PROGRAMMABILE 
= -| 76 Us: 
: 4000 UCI)=(CBCII+CCT))-FCI))/ICT) 1790 LPRINTUSING sPCZIGPC3) + CONVERTITORE AD 12 BIT VELOCE [258) E CANAL! DU INPUT CORPRETA, 
a ç 4040 VCI)=(BCI)+CCTD)+DCI))/PCI) 1800 LPRINTUSING 50(2),0(3) ] MENTE DIFFERENZIALI, AMPLIFICATORE CON GUADAGNO PROGRAMMA. 
: Microse periféricos 1020 XCD)=CBCI)+C(1))/IC1) 1810 LPRINT | | . Sciiema 80 COLONHE COMPATIBLE CON TUM | LINQUAGAL BASS 
nacionais e - 4030 Z(I)=PCI)/QCI) 1820 LPRINTUSING sRCBIFRCI) PASCAL CAM. FORTRAM APPLE WATER VISICAC, ECC. 5 256 
. =| » De ” bo AMPANTE IN CONTEN 
rente ico HOMEN, iggo LPRINTUSINO BPSNSCAD NSCG)55(3> RE a e 
5 mi 34 IS G ; Tc IDIBILE À 46 - 96 K - R$232 [EEE ASS U.S. 27 
R. Barão de Mesquita: 1050 UMCIDENCD/KOT) 1850 LPRINT » INTERFACCIA SERALE AS 212 DI COMUNICAZIONE CON BAUO RATE 
nº 663 Lis.3e4 a 1070 NEXT T 1860 LPRINTUSING PFUCZ)GU(a)  SOHEDA 280 Chi GUI 3 VOLUIM E SOFTWARE vs: bo 
Tel. (021)238-2186 A 1080 CLS 1870 LPRINTUSING DsVCDIsUCI) * SCHEDA PAL PER COLLEGAMENTO MONITOR COLOR! U.S.5 100 
ar > , Leto ha * SCHEDA var a 
- £O90 PRINT Q 512,“VOCÊ DESEJA QUE A ANALISE SEJA IMPRESSA STH(S) OU 1880 LPRINTUSING C45;X(1);X(2)5X(3) DONE RR Rea E NOENOR IMOL SORO 
| NAOCN) “5 1890 LPRINTUSING PASTZCÍ)SZCD)SZ(I) * SCHEDA VGP 64 8 COLORI INCLUSO HOST ADAPTOR U.s.$ 2.120 
As ; 7 7 º * SCHEDA VGP 64 64 COLOR INCLUSO HOST ADAPTOR U.S.$ 2450 
1400 INPUT S$ 1900 LPRINT * SCMEDA VO a 409 COLOR! INCLUSO HOST ADAPTOR U.5.5 4.850 
SG "go GOTO 15 1940 LPRINTUSING (2)KES . VGP 64 EXTERNAL SYNC INPUT Us. 
so ari x EI AO 1920 LPRINTUSING 62) " «3 E ADETONAE  UU NO RR VOA MONORONATIOA US5 85 
| 1420 CLS 2 x ING FLS . il VGP 64 COLORI Us 85 
1430 PRINTCEMPRESA: “;E3$ 1990 LPRINTUSING E E) 2 PIASTRA CPU 44 K MEMORIA RAM MICROPROCESSORE g02 5.5 350 
A | ) a 5 a beba . LFANUMERICA COM PAD NUMERI( 
Engenharia Ltda. : 1440 PRINTORAMO 3 “;E4S 1940 LPRINTUSINO ( 2);N(3) TUTTI TAST DUCITA MOO 6 nu nEANOO REPEAT AUTOMANCO 3 
a 1150 PRINT 1750 LPRINT Epi dE av Edema COR PRETA ANTIONSTURDO TENSÃO 
E ] IG e ” o vol HZ 10 AI 
1160 PRINT AÍS SA de : - Ê lira DSS; VCL) rca Va VC3) + ALMENTATORE TAMPONE CON BATTERIE RICARICA AUTOMATICA 
1170 PRINT al R = 3 , YZ srrca) us.s 2 
! z - fé) dera » CABINET METALLICO INCLUSO KIT 
| 1480 PRINTUSING AZSGACÍ)GA(Z)GAÇI) 1980 LPRINTUSING WC2)sUWC3) à MICADELABORATORE” APPLE. CONPATISNE COMPLETO MONTATO É 
1190 PRINT 1990 LPRINT COLLAUDATO A VENTILAZIONE FORZATA, INCLUS! 3 MANUAL! U.5.$ 820 
1200 PRINTUSING AIS;B(Í);B(2);BC3) 2000 LPRINT DB SIRROL UNA BRO LUNGHNEIZA CA. 98 0, ABBINABRLE A CUALUND 
1240 PRINTUSING A4$;0(1);C(2);0C3) 2040 LPRINT O PER DENO: TA Dio TT S 
59] USINI es. 2): D(3) 2020 LPRINT Eis | IDEALE PER COMPUTER SHOP E FIERE - DA 1 A 4 K EPROM  U.8.$ 70 
1250 PRINTUSING CD IECE CD 090 FOR X=1 TO 45 [| OBIETTIVO NM. COM DAP Tu EMASTER AL 
PESE Aa : aa o 2040 LPRINT ESS é MARO DESK WINCHESTER Jo a E usgisis 
e pa . n TER 10 M. BYTE 
1250 PRINT/PARA CONTINUAR TECLE <S) “; 2050 NEXT X pop pn RE VS 34300 
Gg= ="9" E oss 20s R he KUP 10 M. BYTE ET 
255 peRieeia F(S$="5") THEN 1260 ELSE 1255 eu E INT PVE E Wuco uss 3466 
26! Ss , ID! RACK METALLICO 17º U.S.5 160 
: g k ”o BA A sl e , É * MONITOR COLOR! INCLUSA SCHEDA INTI 
1270 PRINT A7$ ORA PIER DB RIRS ANALISE ,SIMC(S) OU NAOCN) “; & PLOTTER WATANABE & PENNE FORMATO Rm oro U.S Lda 
1280 PRINTUSING ABS;0(1);6(2);6(3) 2020 INPUT 5% | * JOYSTICK CON CAVO DI VO GAME E DUE INTERRUTTOR! ussa 
| 1290 PRINTUSING APS;HC1);HC2);H(3) 2100 IF 5$="5” GOTO 55 
1300 PRINTUSING Bi$S;1(1);1(2)71(3) 2140 PRINT 9458,”FIM DE PROGRAMA” | IMPRESSORAS OKI SERIE MICROLINE 
| 1340 PRINTUSING 28; CID JC) ICI) 2120 GOTO ML 80 (80 cps - BO cl) SEMIGRAFICA FRIZ + P. FEED + RULLO PARALLELA 
AVE DRA 65000 CLS:BOSUB 65010 + ML BZ (120 cos - 80 cl) SEMIGRAFICA FAIZ + P. Fe Pad AS 
4330 PRINTUSING B3$;0(1);0(2)70(3) 005 GOTO 45270 o le 
1340 PRINTUSING B4S;PC1);P(Z)GP(I) S040 CLS:PRINTEPRINT ps - BO cl) GRAFICA - LO. - FAIZ + Preto PARALER 
| 1350 PRINTUSING B5$;0(1);0(2);0(3) 50% O PRZ "3 GOSUB45140 pa fa Pt - 12 6) SENIOR. FAZ. + TRATTORE PARALELA + RS 
45030 PRZS ANALISE DE BALANCOS “3 6OSUB65140 + ME 9 (160 cps - 132 ch GRAFICA - NO. - FAIZ + Taro PARALEA 


1360 PRINT 


65040 PRZS “2G0SUB65140 


MICRODIGITAL — PROLÓGICA 1370 PRINTUSING BóS;R(1);R(Z);R(I) 6504 E É 
TK 83 TK 85 TK 2.000 4380 PRINTUSING B9$;5(1);5(2);5(3) 65050 PRZS ELABORADO POR 2 "2 GOSUB45140 ML. 04 (200 cpa - 1820) GRAFICA O NLQ. - PRI + marron pa 
CP 200 CP 300 CP 500 1390 PRINTUSING C3S;T(1);TCZ);TCI) 65060 PRZS= “2 GOSUB65140 * OPZIONE GRAFICA PER ML BZIA - BY INCLUSO MANUALE 4.5.5 30 

4 é + INTERFACCIA IEEE 4880KI US$ 180 


45070 PRZG=" DORLEY DE JESUS GODARTH “3 GOSUB65S140 















PROGRAMAS COMERCIAIS E 1400 PRINT Epa da 
JOGOS 1440 PRINT/PARA CONTINUAR TECLE (5) “5 5506 “3 GOSUB65140 
* SUPRIMENTOS 1420 S$=INKEYS:IF(S$="5”) THEN 1430 ELSE 1420 65090 PRZ$= CURITIBA,26 DE DEZEMBRO 1983”7:60SUB45140 | «mms ENARE PERTEL PER APPLE 
1430 CLS 6sI100 FRZS= “E GOSUR651 40 | | * EDITOR CA. SOFTWARE TRANSCODIFICA EA180 EDITING OI BANDA 
1440 PRINTUSING C4S;UCL);UC2);UC3) 65440 PRZ$ FONE : (D41) 2272-695 "3 BOSUB65140 + GRAFPAR MANO COPY VIDEO PER STAMPANT rd TA 
1450 PRINTUSING C5S;UC1);UCZ);UC3) estao Persa “2: GOSUB 45140 & MALANO LIST (408 MONNMATIV PER DASCHETTO) E 
| 5 A A A 5130 FOR AS=1 TO 1ODO:NEXT AS:RETURN . N JOYSTICK PER SCHEDA TELERASTER U.S.$ 50 
e INTROD. À MICROCOMPUTADORES 4460 PRINTUSING C68;X(1);X(2);X(3) pe ) & POTENTE. SOFTWARE GMANCO GTA 
BASICIEI 4470 PRINTUSINO C9$;Z(1);Z(2);Z(3) 45140 ai TO LENCPRZS)2PRINT MIDSCPRZS,AZ,1);:FOR AX=iÍ TO 25: Emma use Loser Vo 
: E] q PUT Pt 
AULAS PRÁTICAS E TEÓRICAS | soa 65270 CL E RAD * BBUOTECA SOFTWARE PER ARGATETNURA O Srs 
2 A 3 ALUNOS POR MICRO 4490 PRINTUSING DASGKC1);K(Z)GKCI) ESA Beja E US$ 75 
TURMAS DE 12 ALUNOS 1500 PRINTUSING D2$;L(1);L(2);LC3) RERDO PLANA INT RENT * BIBLIOTECA SOFTWARE PER CHINICA 03375 
APOSTILAS E CERTIFICADOS 4510 PRINTUSINO D3S;MC1);M(2);MC3) 5 TrESTE PROGRAMA FORNECE UMA ANALISE ECONOMICA-FINANCEIRA , 
TURMAS ESPECIAIS PARA EMPRESAS 1520 PRINTUSING DAS;N(1);NC2);NC3) 65300 PRINT/SOBRE 05 I(TRES) ULTIMOS BALANCOS DE UMA EMPRESA. ORANGE = UNITROK ECC. PROCURAMOS DISTRIBUIDORES CM 77 E 
E 1530 PRINT esa40 PRINTYCASO A EMPRESA NAO POSSUA 3 BALANCOS, DEVE-SE ATRIBUIR CONDIÇONES ESPECIAIS PARA REVENDEDORES E INTERESSADOS COMO 
à Ni VCL) GY) Ea S ANOS QUE A EM , A IODUTOS, SOLICITEM-NOS. 
telesomunis 1540 PRINTUSING DSS;YC1); ) 65320 PRINTPARA OS DADOS DOS EMPRESA NAO TENHA BALANCO “BONO CATALÃO HA BUS DAHO 
sppesa 1550 PRINTUSING D6S;YYC(L);YYCZIFYYCI) 65330 PRINT"O VALOR (4). “ 
engenhasia « comércio lida 1560 PRINTUSING D7S;MUCL)MUCZ) ;UWC3) 65340 PRINTEPRINTEPRINT 


| das me 65350 PRINT“PARA CONTINUAR TECLE <5)”; 
DEPTO. DE INFORMÁTICA 4564 PRINT“PARA CONTINUAR TECLE (5) “; 5 I A NUA 82"; 
AV. BRIG. FARIA LIMA, 2178-TEL..: 813-3338 4562 SS=INKEYS:IF(S$="5") THEN 1570 ELSE 1562 o REnaar E RSAEN S“)THEN 65970 ELSE 65360 
- BRING. A - 2070 jo 
PINHEIROS — SÃO PAULO - SP ddr BO NU 65380 PRINTEPRINTIPRINTEPRINTEPRINT 


7 PERIFERICHE 
= TELECOMUNICAZIONI 


VIA ORMEA, 99 - CEP. 10126 ano (ITALY) 








1580 CLS : 
ESTACA 4590 PRINT Q 512,ºPOSICIONE A IMPRESORA E TECLE (8) “5 45390 END TE (011) 655.865 — 
ZONA AZUL E 1500 SS=INKEYS:IF(S$="5”) THEN. 1610 ELSE 1600 2hadés PERTEL 1 
= Roda SESC Ene ar 
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Economizar é a ordem do dia. Portanto, ganhe tempo na gravação e leitura 
de dados em fita cassete nos micros da linha TRS-80 Modelo | 





Otimização de arquivos 
em cassete 


processo que apresentamos 
neste artigo trata-se de uma 
explicação, detalhada e com 


exemplos de fácil compreen- 
são, a respeito da concatenação de strings 
antes da gravação de dados na fita cas- 
sete e da desconcatenação destas strings 
após a leitura. Isto, na realidade, é bas- 
tante simples, mas proporciona grande 
economia de tempo, que às vezes chega 
a um quinto do normal para a gravação 
e leitura de dados em cassete. 
Este procedimento também pode ser 
tomado por quem possui disco, para a 
agilização dos arquivos sequenciais. 


O PROCESSO 


Em primeiro lugar, deve-se ter uma 
atenção especial na gravação dos dados, 
pois o computador, ao emitir as infor- 
mações, não verifica o status do grava- 
dor e, se a fita não for colocada desde o 
início com sua parte magnética em con- 
tato com o cabeçote do gravador, as 
púmeiras informações enviadas serão 
perdidas. 

Suponhamos que em nosso progra- 
ma temos as variáveis A$, B$ e C$, que 
representam, respectivamente, o nome, 
o telefone e o CEP de uma determinada 
pessoa: 


A$="Joao Jose da Silva": 
B$="249-4649":C$="04716" 


Normalmente, gravamos os dados as- 
sim: PRINT 4 -1,AS,B$,CS, ou seja. 
três variáveis distintas. Mas se transfor- 
mamos as três variáveis em uma só, gra- 
vamos apenas uma, o que resulta numa 
grande economia de tempo, principal- 
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Rogê Rosolini 





mente se temos cinco ou seis variáveis. 
Para juntarmos as três variáveis em 
uma só, temos de introduzir caracteres 
de controle entre elas, caracteres esses 
ue não sejam acessíveis ao usuário (grá- 
icos ou especiais). Fazemos isso da se- 
guinte maneira: 


Z$=A$+CHR$ (143) +B$+CHR$ 


(143)+c$ 
Deste modo, nossa variável ZS$ fica: 


Z$="Joao Jose da Silva 
M249-4649804716" 


Em caso de variáveis numéricas, de- 
vemos convertê-las para string, usando 
STRS. 

Para gravar nossas três variáveis nu- 
méricas anteriores, usamos apenas 


PRINT & -1,ZS. Entretanto, deve-se 
tomar cuidado para que o comprimento 
de Z$ (no caso) não ultrapasse 236 ca- 
racteres. Para lermos ZS$, utilizamos 
INPUT & -1,Z$S e, em seguida, inicja- 
mos a descompactação das variáveis, ve- 


















INPUTA-1,2$ 
20 FORA=ITOLEN (Z2$) 
30 IFMIDS$(Z$,A,1)=CHR$ (143) 
THEN4 0ELSENEXT 
40 AS$=LEFT$ (Z2$,A-1) :A=A+1 
50 FORB=ATOLEN (2$) 
60 IFMIDS (Z$,B,1)=CHR$ (143) 
THEN7 0ELSENEXT 
70 B$=MIDS (Z$,A,B-A-1):B=B+ 
1 
80 FORC=BTOLEN (2$) 
90 IFMIDS$ (2$,C,1)=CHR$ (143) 
THEN1 00ELSENEXT 
100 C$=RIGHT$ (Z2$,LEN(2Z$) - (C+ 
19) 





rificando caráter por caráter de ZS$, até 
encontrarmos o caráter gráfico 143. 
Acompanhe este processo na figura 1. 

Convém saber que na linha 40 (figu- 
ra 1) foi usado LEFTS porque se trata- 
va do início da variável Z$; não haven- 
do nada à esquerda disso, não foi neces- 
sário usar MIDS. O mesmo acontece 
com a linha 100, onde usamos RIGHTS, 
por ser o final da variável ZS. 

Em termos práticos, se tivéssemos vá- 
rias variáveis, faríamos da seguinte ma- 
neira: 

LEFT$ 


RIGHT$ 


É interessante, também, que se utili- 
ze velocidade alta de gravação, obvia- 
mente nos computadores que a possuam. 
Se o programa tiver sido gravado em ve- 
locidade baixa, podemos mudar isso 
com POKE 16913,1 (zero para baixa e 
diferente de zero para alta). z 





Rogê Rosolini tem 16 anos, cursa a É série 
do 2º grau e é responsável, junto com Fernan- 
do Coura, também de 16 anos, pela LOGI- 
CAL SOFT, uma empresa que desenvolve pro- 
gramas de /aplicações! domésticas, jogos de 
ação e aventura, todos em versão cassete. 
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No Brasil de hoje, nenhuma empre 
pode perder a oportunidade de mostrar 
suas novas idéias, novos equipamentos 
e serviços no maior centro econômico do 
País: São Paulo. y 

O caminho está aberto para vocêna | 
114 FUSE, de 20 a 24 de junho. Aliás, essaé a 
época mais propícia para investir e acompan 
as atuais con ais desse mercado. q 

Essa Feira foi cuidadosamente planejada po 
ser o mais lucrativo encontro entre a ofertae a 
procura, reunindo milhares de diretores, gerente 
empresários do Brasil e do exterior, que estarão 
presentes para conhecer e fechar negócios 
que proporcionem aumento de qualidade e redução 
custos operacionais. q 

No Parque Anhembi você conhecerá as últimas 
quistas na área de informática, telecomunicações, 
e instalações, brindes, consultoria e assessoria, entre o! 

Para quem quer fechar negócios de milhões, um ay 
está na hora de reservar o seu 
estande e garantir o lugar que 
sua empresa merece. 


Setores: 
* Processamento de Dados 

e Teleprocessamento * 

Comunicação e Teleco- 

municação * Arquivo, 

Classificação e Micro- 

filmagem * Instalações e 

Mobiliário * Máquinas de 

Escrever, Cálculo e 

Contabilidade * Cópias, A po : 
Impressão, Acabamentoe | À Wa N 
Endereçamento * Má e pe 

Gráficas e Materiais * Controles 

Visuais e Relógios * Segurança e 

Saúde * Artigos de Papelaria, : =8 À 
Desenhoe Escrita * Consultoriae | ' E E: ) 
Assessoria * Brindes * Serviços em k AA “dá 
geral * Publicações * Ensino e Pesquisa á E 

* Bancos e Financeiras. ; - e 





NA 
11% Feira Internacional de Utensílios e Serviços de Escritório. 
Horário: das 9 às 18 horas 
Patrocínio: Febraban - Federação Brasileira das Associações de Bancos 
Fenaban - Federação Nacional de Bancos 
Promoção: Alcantara Machado Feiras e Promoções Ltda. 
Rua Brasílio Machado, 29 - São Paulo, SP - CEP 01230 - Telefones: 826-9111 e ESA 1323 - Telex (011) 22398 AMCE BR 


Evento autorizado e oficializado pelo CDC. Veículo oficial: pEOLH A informática 


do Ministério da Indústria e do Comércio. 














Use seu micro da linha TRS-80 para automatizar os seus QLSs e mantenha 
atualizado o seu Livro de Registro de Comunicados com este... 


Arquivo de comunicados 


ste programa foi desenvolvido 
com o objetivo de facilitar a ta 
refa do radioamador no preen- 
chimento de cartões QSL e do 
Registro de Comunicados (LOG), e está 
pronto para ser utilizado em micros da 
linha TRS-80, versão disco com impres- 
sora. Os colegas que não possuem esses 
dois periféricos, entretanto, também 
poderão aproveitá-lo mendiante peque- 
nas modificações: 
- Os que não dispõem de impressora de- 
vem eliminar a opção 4 do menu e mo- 
dificar a opção 5 para a saída em vídeo, 
ao invés de impressora; 
- quem só dispõe de versão cassete, bas- 
ta modificar as opções 2 e 3 do menu 
para que passem, respectivamente, a gra- 
var e carregar arquivos em fita cassete 
(isto é possível porque o programa traba- 
lha com todos os dados “em memória”). 

Observação: para facilitar as eventuais 
alterações o início e o término de cada 
uma das rotinas de que se constitui o 
programa estão nitidamente assinalados 
na listagem. 

Vamos então aos detalhes do progra- 
ma. Ele possui cinco modos de operação 
orientados por menu, o qual passo a des 
crever. 


1. ARQUIVAR 


Nesta opção, será inicialmente ques- 
tionada a quantidade de comunicados a 
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serem arquivados. Tendo em vista o di- 
mensionamento das matrizes, o número 
de comunicados não poderá exceder a 
100, mas uma pequena alteração na li- 
nha SO permitirá aumentar ou diminuir 
esta quantidade. A seguir, o micro passa 
a solicitar, na terminologia mundialmen- 
te adotada, os dados referentes a cada 
comunicado. 

O programa não foi desenvolvido es- 
pecificamente para registrar comunica- 
dos ao mesmo tempo em que est''” sen- 
do realizados, por uma única razão: sem- 
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TO RADIO : PYSCIG 

DATE : 21/04/84 

U.T.C 2Z-UAY R.S.T M.H.Z 
0408 ssB 59+ 14 
ALCIONE CURITIBA PARANA 


TO RADIO : PYSCLU 

DATE : 21/04/84 

U.T.C 2Z-UAY R.S.T M.H.Z 
0409 ssB 59+20 21 
ALCIONE CURITIBA PARANA 


TO RADIO : PYSCIF 
DATE : 21/04/84 
U.T.C Z-UAY R.S.T M.H.Z 
0410 cH 599 21 
ANTONIO LONDRINA PARANA 


a 











Figura 1 — Etiquetas autoadesivas 


Alcione Sperandio Junior 


pre tive por norma registrá-los à parte, 
para prevenir uma eventual falta de ener- 
gia e a consequente perda do registro 
dos comunicados. Nada impede, porém, 
que os comunicados sejam registrados 
simultaneamente: basta adaptar o pro- 
grama para tal. 

Apos o término desta opção, o pro- 
grama retorna ao menu, quando então o 
operador pode, conforme seu desejo, 
imprimir as etiquetas a serem coladas 
nos QSLs com os dados de cada comu- 
nicado (opção 4); imprimir uma folha 
do Registro de Comunicados (opção 5); 
ou, se preferir, guardar todos os dados 
para posterior utilização, gravando-os 
em disco (opção 2). 


2. GRAVAR EM DISCO 


O arquivo aqui utilizado é sequencial; 
o micro questionará o nome do arquivo, 
o qual não deve exceder a oito caracte- 
res. Sugiro que o nome seja iniciado 
com as letras QSO, seguidas do número 
de ordem do arquivo, da letra Q e de um 
ou dois algarismos que representem a 
quantidade de comunicados arquivados. 
Por exemplo, QS03Q12 significaria o 
arquivo de QSOs número 3, contendo 
12 comunicados. Em seguida, o micro 
perguntará a quantidade de comunica- 
dos a serem armazenados, o que deve ser 
respondido com atenção para evitar pro- 
blemas futuros. 
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'3. CARREGAR DO DISCO 


Esta opção destina-se a carregar do 
disco dados anteriormente gravados. 
Pressionando-se a tecla 3, surgirá no ví- 
deo o diretório do disco em BASIC, cuja 
função é facilitar a identificação dos ar- 
quivos existentes e a seleção do que in- 
teressa no momento, bem como a iden- 
tificação da quantidade de comunicados 
arquivada no mesmo. Seria interessante 
utilizar um único disco para o programa 
e todos os arquivos. 

Ao término desta etapa, da mesma 
forma que ao término da opção 1, todos 
os dados referentes a um arquivo de co- 
municados estarão na memória, o que 
torna disponíveis para uso as opções 
4€5. 


4. PREENCHIMENTO DE QSLs 


Aqui se dá a impressão das etiquetas 
autoadesivas, contendo os dados de 
QSOs, a serem colocadas nos cartões 
QSL (ver figura 1). A formatação da im- 
pressão é para etiquetas em uma coluna 
de 2.40x9.00 cm, mas você pode modi- 
ficá-la facilmente para o tipo de etiqueta 
de que dispuser e para aproveitar ao má- 
ximo os recursos de sua impressora, tais 
como caracteres expandidos, comprimi- 
dos ou gráficos. 

Nota de PYIDWM: se você conseguir 
formulário contínuo de maior gramatu- 
ra, tipo cartolina, poderá modificar esta 
opção para imprimir, em vez de etique- 
tas, todos os seus cartões; além de uma 
substancial economia — o preço de um 
OSL está próximo da estratosfera — o 
sucesso será tão garantido que muitos 
dos seus amigos possivelmente encomen- 
darão a você a confecção dos seus QSLs, 
proporcionando-lhe um Q 8J extra... que 
ajudará a pagar a sua impressora! Man- 
de notícias. 


5. PREENCHIMENTO DO LIVRO 
DE REGISTRO 


Esta opção (ver figura 2) realiza o 
preenchimento da folha do Livro de 
Registro de Comunicados, obrigatório 
pela legislação, para os QSOs constantes 
de um determinado arquivo. A formata- 
ção é para formulário de 80 colunas, e 





De PYIDWM 


á estamos na segunda edição da RODADA MS. Embora o tempo decorrido entre o 
lançamento do número 31 e o fechamento deste tenha sido bastante pequeno, 
o odemos. quer pela correspondência recebida, quer pelos comentários nas faixas, 
antecipar o seu sucesso. 


De início quero pedir descuplas ao amigo e colaborador Pivatto-PY3IT pela publi- 
incorreta de seu indicativo — macanudo que se preza munheca logo na entrada, 
1 Para compensar, uma boa notícia: a Rodada do Micro, cuja criação foi sugerida em 
MICRO SISTEMAS número 31 com a maior das boas intenções, já existe há algum 
tempo. É comandada por PY2AQO — Luiz, de Jaú, SP, funciona diariamente a partir 
das 16:00 h em 7097 * QRM, e é bastante concorrida; o forte da turma é a linha 
Sinclair e o papo corre solto até pelo menos 18:30 h. Aguardem, pois temos muitas 
promessas de colaborações do Luiz e sua turma... 


Antes de continuar, um parêntesis: alguns colegas reportaram dificuldades na digita- 

ção do Professor Picapau (MS nº 31), pois a impressora usa o mesmo caráter o al- 

i zero e a letra O, o que causa alguma confusão nas linhas 200, 220, 230, 250, 
20, 530, 820 e 860. SRI, isto não mais acontecerá 


Correspondência recebida: de PY1FO-Évio, PY31T-Pivatto, PY1BCN-Machado e, 
(so + de PY1EWN-Ronaldo, todas com palavras amigas e de incentivo; de 

SCIG-Alcione, com esta excelente colabo: que ora publicamos e também do 
CWRJ, enviando-nos o Boletim Informativo nº 16 (março/abril 84). 


Gostaríamos de destacar a carta recebida de PY2QV-Casa do Radioamador de Ri- 
beirão Preto, dando conhecimento da eleição e posse da nova diretoria para o ano de 
1984, liderada PY2VDJ-Roberto Annovazzi (nossos votos de uma feliz e profí- 
cua ini: ) e, ainda, solicitando publicação de seu endereço, tendo em vista 

um grupo de usuários de microcomputadores interessado no intercâmbio de 

s com ey congêneres. O endereço da Casa do Radioamador de Ribei- 

rão Preto é Caixa Postal 575, CEP 14100, Ribeirão Preto, SP, e o telefone para conta- 
tos imediatos de qualquer grau é 624-5896. 


Por falar em e entidades, a RODADA MS terá prazer em divulgar quaisquer 
atividades à utilização do micro no radioamadorismo, quer de grupos li- 
gados à entidades radioamadorísticas, quer de grupos de fundo de quintal. Da mesma 

, serão feitas referências a Boletins Informativos, QTCs falados e demais publica- 
ções semelhantes que nos sejam enviadas. 


Não percam na próxima edição da RODADA MS um programa para treinamento 

de CW, colabo; de Jorge Alberto Correia Bettencourt Soares, para os usuários da li- 

uem ligados nesta promoção: todos os colegas que remeterem, até 15 

de agosto, um QSL para a RODADA MS contendo alguma opinião, crítica ou sugestão, 

co ao sorteio de três assinaturas de 1 ano de MS. Os rádio-escutas ou os que 
não têm QSL podem mandar uma cartinha. 


já vou indo, mas antes desejo ressaltar o transcurso no dia 5 de maio do Dia 
das Comunicações, durante o qual tive a oportunidade de ouvir pelas faixas as mais di- 
versas home: ao nosso insigne patrono, Marechal Cândido Mariano da Silva Ron- 
don. Os parabéns a todos nós. 


CQ, CQ! Preciso urgente entrar em contato com possuidores de KENWOOD TS 130V 
EA ve Desculpem o câmbio espada e vamos continuar prestigiando a nossa RO- 
HPE CUAGN 73 ES GL FM PYIDWM-Quito 


A RODADA MS é coordenada por PY 1DWM-Roberto QUITO de Sant'Anna. Qualquer 
correspondência e/ou colaboração deve ser enviada aos seus cuidados, para a 
Av Presidente Wilson, 165, grupo 1210, CEP 20030, Rio de Janeiro, RJ. 
Contatos diretos via Rodada do Micro (7097 KHz, das 16:00 às 18:00 h), 
Patrulha da Madrugada (7055 KHz, das 22:00 às 23:00 h) ou pelo telefone 
(0243) 54-3355, ramal 594. 








DATA----—— INDICATIVO----—- QTR=-—== QR6----EMISSAO---—— RST(R)----—- RST(E) 
21/04/84 PY5CI6G 0408 14 ssB 59+ 59+ 
21/04/84 PYSCLU 0409 21 SSB 59+40 59+20 
21/04/84 PYSCIF 0410 21 Cu 599 599 
& 
Figura 2 — Registro de comunicados 
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ARQUIVO DE COMUNICADOS 
AGORA É MAIS 
deve alterá-la, se f , para ti- 
RO pi poe ra E STO FÁCIL ASSINAR 














. . : 
asa impressora e do formulário Arquivo de comunicados so FINAL DA ROTINA DESTINADA A ARQUIVO DE DADOS EM DISCO E 
R E + 2000 ESsusas: ===: ===: dd 
Considerações finais: embora tenha 2010 "ROTINA DESTINADA A CARREGAR ARQUIVO DE DISCO Micro 
desenvolvido o programa segundo os pa- 2020 '===============: np Ra 
drões internacionais para o preenchimen- O '==== EEEcScEDCc=ncEE====== == 2025 CMD“D:0 mas 
i- 10 "ARQUIVO DE COMUNICADOS: 2030 PRINT:PRINTEPRINT:INPUT“ENTRE COM O NOME DO ARQUIVO MAX B C 
ade mpi sp aten pat 20 "PROGRAMA DE Alcione Sperandio Junior ARACTERES” ;ARSZARS=LEFTSCARS,B) 
ge que 25 "RUA SAO LEOPOLDO 125 - 80000 CURITIBA - PARANA- 2035 CLS: INPUT“QUAL A QUANTIDADE DE COMUNICADOS PARA CARREGAR 7” 
contrei, tive a preocupação de deixar DO '==e=====>ce-cemcssrSCECECRCCCSCecocoeooasosscacaeessacesas ;Q 
bem nitidamente separadas cada uma de 40 CLEAR2000 2040 OPEN“I”,2,AR$ i : z 
suas partes. Assim, apenso final pode- S0 DIMTR$(100):DIMDTS(100):DIMTUS(4100)2DIMWWS(100):DIMRR$(100):D 2050 FORA=1TOQ Para sua aro comodidade; 
rá adaptálo convenientemente ao seu IMRSS(100):DIMMHS (100) :5DIMNS(Í00):DIMGTSCÍ00) 2060 INPUTH2, TRSCA) a ATI Editora Ltda. 
a 60 '============0cesceccsccccaccscaRscccaccccassessasasascanaoss 2070 INPUTH2, DTSCA) e z 
gosto com o mínimo de esforço. Além 70 "ROTINA DE DESVIOS PARA AS DIVERSAS ROTINAS DO PROGRAMA-— 2080 INPUTH2. TUS(A) coloca à sua disposição 
de constituir um produto acabado, pron- BO '========="====="======D=====0==============0===ccossnconsesss 2090 INPUTHZ  WUSCA) os seguintes endereços 
to para utilização imediata, este progra- 100 CLS:FORA=1T0127:SET(A,0):SET(A,12)2SET(A,47):NEXTA 2100 INPUTH2, RSSCA) , 
ma pode também ser considerado um 105 FORA=21T037:SET(25,A)2NEXT 2140 INPUTHZ, RR$CA) de seus representantes autorizados: 
ponto de partida para o grau de sofisti- 140 PRINTO67, “ARQUIVO DE COMUNICADOS“ :PRINT9L31,“P-Y-5-C-1-6“3PR 2120 INPUTHZ, MHSCA) 
E desei INT9160,“<(C)) Alcione Sperandio Junior”; 2PRINT9L95,Z-Y-5-C-1- 2422 INPUTH2,NSCA) 
cação que você desejar. 6”, 2423 INPUTHZ2, GTSCA) 
120 PRINTO463, “ARQUIVAR - 1 -“;:PRINTOS27, “GRAVAR EM DISCO - 2 - 2130 NEXTA 
“;2PRINTOS91, “CARREGAR DO DISCO - 3 -”;2PRINTO6SS, “PREENCHIMENTO 2140 CLOSEW2 
DE Q.S.L.s — 4 -”;2:PRINTO/19,“PREENCHIMENTO LIVRO DE REGISTRO 2255 6070100 
- 5 -“;2PRINTO 7893,ºFIM DE TRABALHO — 6 —”; 2270 'emmmsumnnsanasonseesoscssases mannnansassanas 
130 BYS=INKEYS 2280 "FINAL DA ROTINA DESTINADA A CARREGAR ARQUIVO DE DISCO===== Q 
140 IFBY$S="1",197 2290 '=sssmasannessascos RO 
150 IFBY$="2”,1000 3000 '==z==== mssnnss Reg 
160 IFBY$="3”, 2000 3040 "ROTINA DESTINADA AO PREENCHIMENTO DE Q.S.L.s o - Cao 
Formado em Administração de Empresas, Al- 470 IFBY$="4”, 3000 9020 '================= Eo=..===snncesconsassaesoo EN Ros Gr 
cione Sperandio Junior é radioamador desde 180 IFBY$="5”, 4000 3030 CLS:PRINTCHRS(23); “PREENCHIMENTO DE QSLs.” pao: OM Ny 
1971, prefixado com o indicativo PY5CIG. 185 IFBYS="6",194 3040 PRINTO256, “PREPARE A IMPRESSORA” oe? Ea NO 
Utiliza microcomputadores pera desenvolver 190 BOTO430 3050 PRINTIPRINTYAPOS PREPARA-LA DIGITE «(C))” ONE NE 
programas de uso pessoal e aplicativos comer- 194 CLS:END 3060 KHS=INKEYS Vas Sa 
ciais na área em que atua. 192 'resecmececasconssococececocoseansaceccececcssecccscconmenoe 3070 IFKH$=“C”, GoTO3090 LAR tc 
SR O 494 "ROTINA DESTINADA AO ARQUIVO DE COMUNICADOS-— 3080 60703060 Reg? 
196 'fm=sessssscIscscecIScICESsEssscacacasnsasassasssasaas=ss: 3090 FORA=ÍTOQ o) À O 
497 CLSFINPUT“QUAL A QUANTIDADE DE COMUNICADOS PARA ARQUIVAR 7”; 3440 LPRINT“TO RADIO : “; TRSCA) 88% 
a 3440 LPRINT/DATE 2 “;DTSCA) O sa NES 
200 FORC=1 TOR 3470 LPRINTTAB(O);“U.T.C”; SLPRINTTAB(7);“2-WAY”; ELPRINTTAB (14) 5” po” ENE AM qo 
MICRO 210 CLS:INPUT”TO RADIO 7”; TR$(C) R.8.T“;SLPRINTTAB(21);“M.H.Z” o? ca Das 
220 INPUT“DATE QSO ?”;DTSCC) 3480 LPRINTTAB(O); TUSCA); ILPRINTTAB(B) UUSCA); SLPRINTTAB(14) RSS Pe 2 A 
230 INPUT“TIME UTC 7”; TUSCC) (A); ELPRINTTAB(22);MHS CA) PAO 53º 
SISTEMAS 240 INPUT“2 MAY 7”; MWSCC) 3490 LPRINTTAB(O);NSCA); SLPRINTTABC1O) ;QTSCA); QB O 
250 INPUT“RST SENT ?”;RSS(C) 31494 LPRINTILPRINT ce ao 
nº 34! 260 INPUT“RST RECEIVED 2”;RR$CC) 3240 NEXTA by 
. . 270 INPUT“M.H.Z. ?“;MHS(C) 3220 60T0100 a8* Rui 
272 INPUT“QG.R.A. 2“;N$SCC) 9040 '====FEsSsacSCECICSSSCCCSCENSSSCOSSCICCcccarscssaacsaacasas not a qr 
274 INPUT“Q.T.H. 2”;0TSCC) 3250 "FINAL DA ROTINA DESTINADA AO PREENCHIMENTO DE Q.8.Ls.===== ate a Sat 
A ns 325 NEXTC 9260 '===mmzasessasescossanaceancasascans=sssssssas=sass nusnsas qe. oa 8 
Você nao 326 CLS:FORA=STOL00:PRINTCHRS(23);9256, “ARQUIVO COMPLETADO”: NEXT 4000 '===========50==n2==200000050000000000000000000===0=0000=000000 «o Ea 88 ÇA 
A:GOTOL00 4010 "ROTINA DESTINADA AO PREENCHIMENTO DE LIVRO DE REGISTRO--—— “ Cato 
990 '======E22=2=2=22=2==2====2=2==2=>=2=02=2=0=00ccoccceseaneccacanncsas 4020 '========52====2==28==2=======2==========0000cccosnccssssasces so Bad 
d erder! 340 "FINAL DA ROTINA DESTINADA AO ARQUIVO DE COMUNICADOS======== 4030 CLS:PRINTCHR$(23);“PREENCHIMENTO DE LIVRO DE REGISTRO” VR? 
po e Pp 950 '====== ETTDTeeee o ececeaseecescerscencassccccees 4040 PRINT' 256,“PREPARE A IMPRESSORA” o 
1000 "= mEnaascas: 4050 PRINTIPRINT”APOS PREPARA-LA DIGITE <(C))” ; MN 
1040 "ROTINA DESTINADA A GRAVAR DADOS EM DISCO AD60 PYS=INKEYS E pese 
4020 '======================0=2=00c0020c0cnncssenssas: nuns... 4070 TFPY$="C”,G0TO4090 W 
CAMIRO MERCADO, LINHA APPLE - 1030 CLS:INPUT“ENTRE COM O NOME DO ARQUIVO MAX B CARACTERES” ;ARS 4080 GOTOANGO PN AStZaO 7 so 
Cs A dd ZARS=LEFTSCARS, 8) 4090 LPRINT/DATA QRG----EMISSAO-——— o Na? NE 
características e aplicações desses e Já E e 8º, e Ade 
Guina assa Bb Bdaio no 1035 INPUT“QUAL A QUANTIDADE DE COMUNICADOS PARA GRAVAR 7754 -RST(R) RSTCE) a) 38º! 408 
marcado Pratos 1040 OPEN“O”,1,ARS 4095 LPRINTILPRINT VS «e o capo es? 
1050 FORA=ÍTOQ 4400 FORA=1TOQ ON qe? Cy Ea 
expl 1060 PRINTHÍ, TRSCA) 4440 LPRINTTAB(O);DTSCA); SLPRINTTABC12); TR$(A); SLPRINTTAB (26); TU A 
a a DR 1070 PRINTHL,DTSCA) SCA);ELPRINTTAB (34) ;MHSCA); ELPRINTTAB (44); WWSÇÃ); SLPRINTTAB(S3); UP co O 
NEW DOS. Para completar, uma 1080 PRINTHL, TUS(A) RR$CA); ILPRINTTAB (65) ;RSSCA) OL Sa ai 
ferramenta que permite interromper 1090 PRINTHÍ,UUSCA) 4120 NEXTA AS Rey 
a execução de qualquer programa, ir 1400 PRINTHÍ,RSSCA) 4430 GOTO400 ? 2 Ra 
ao Mini NEW DOS e retornar à execução 1140 PRINTHÍ,RRSCA) ASS0 '============20s00nccscossassesscascscscsscsssancasccnaasas E q? dd 
normal. 1420 PRINTHÍ,MHSCA) 4160 "FINAL DA ROTINA DESTINADA A PREENCHIMENTO DE LIVRO DE REGI o Es, 2º 
1122 PRINTHÍ,NSCA) STRO DE COMUNICADOS- qr q“ oa o? 
€ LIVAR 2- rotina em Assembler, 1123 PRINTHÍ, QTSCA) 4170 '=anasnsaansaacoss=asasacasasasseasas Ra «a É Ro a 
equivalente a um comando do BASIC 1140 NEXTA o” Ea qo" 
do NEW DOS, que lista instantaneamente 1150 CLOSEML O pt DO AN 
todas as variáveis de um programa. 1155 G0TO100 PA 
ROO rd 
€ DISTRIBUIÇÕES ESTATÍSTICAS - as? a 
programa de previsões estatísticas, Sad 


para Sinclair, que fornece resultados 
em três distribuições. 
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Cobra 


volta -se para 
os pequenos 





ad | 


Cobra 210 





om uma participação tran- 

quila no mercado, repre- 

sentada por mais de 6 mil 
máquinas instaladas (só do mo- 
delo 305) e presença consolida- 
da nos segmentos de minicom- 
putadores, micros para aplica- 
ções comerciais pesadas e termi- 
nais para transcrição de dados, 
entre outros equipamentos, a 
Cobra volta-se agora para a pro- 
missora fatia das pequenas e mé- 
dias empresas, e profissionais li- 
berais mais sofisticados, com o 
lançamento do microcomputa- 
dor Cobra 210. 

Menor, mais simples e barato 
que o 305, o best-seller da Co- 
bra, o 210 é, no entanto, tecno- 
logicamente mais desenvolvido 
que o seu antecessor e totalmen- 
te compatível com ele e demais 
computadores fabricados pela 
empresa, O que assegura ao usuá- 
rio a possibilidade de migração 
para máquinas maiores, à medi- 
da em que crescem as suas ne- 
cessidades de processamento. O 
Cobra 210 utiliza os sistemas 
operacionais SOM, MUMPS e 
SPM (compatível com CP/M) 
e as linguagens COBOL I, LTD, 
LPS e FORTRAN IV (sob SOM); 
COBOL, ANS, LPS, FORTRAN 
IV e BASIC (sob SPM) e 
MUMPS. 

Além de rodar os mais de 
150 aplicativos já disponíveis 
para o 305 e qualquer programa 
compatível com o CP/M, o 210 
dispõe ainda do Sistema de Pro- 
cessamento da Palavra — SPP — 
processador de textos desenvol- 
vido no Brasil e que atende a to- 
dos os requisitos específicos da 
língua, portuguesa — e de uma 
série de utilitários para manu- 
tenção, conversão, edição e tra- 
tamento de arquivos, emulação 
de terminais, formatação, inicia- 
lização e back-up de discos, e 
software para emulação de termi- 
nais de diversos fabricantes, per- 


mitindo a formação de redes de 
computadores. 

Projetado para aplicações 
profissionais em pequenas e mé- 
dias empresas, o equipamento 
pode ainda ser utilizado em pro- 
cessamento distribuído e setorial 
em grandes organizações, entra- 
da e comunicação de dados, au- 
tomação de escritórios e proces- 
samento científico. 


CONSTRUÇÃO MODULAR 


aseado no microproces- 

sador Z80B, de 8 bits, 

com clock de 5,85 MHz 
(quase o dobro da velocidade do 
Cobra 305), o 210 permite ope- 
rações a nível de bit, byte e pa- 
lavras, instruções aritméticas, 
booleanas, de entrada/saída, 
transferência, comparação de va- 
lores etc. A memória RAM, de 
64 kbytes, pode ser expandida 
até 128 kbytes, enquanto que a 
memória EPROM, contendo ro- 
tinas de autoteste automático e 
carga inicial, é de 16 kbytes. O 
sistema dispõe ainda de uma me- 
mória EEPROM de 64 bytes pa- 
ra parâmetros de configuração 
programáveis. 

Sua construção é modular, 
apresentando gabinetes separa- 
dos para UCP/vídeo, teclado e 
acionadores de disquetes. O ví- 
deo, de fósforo verde, tem 26 
linhas de 80 colunas, sendo uma 
linha reservada para exibição de 
informações sobre o estado do 
sistema. No modo texto, os ca- 
racteres — ASCII e língua portu- 
guesa, maiúsculos e minúsculos 
— são formados por matriz de 
7 x 9 pontos. No modo semi- 
gráfico a matriz é de 9 x 11 pon- 
tos. 

O teclado — padrão Cobra, 
com 88 teclas, numérico redu- 
zido e teclas de funções espe- 
ciais e de especifica de modo 
de operação — é ligado à unida- 


de principal através de fio espi- 
ralado, o que possibilita maior 
flexibilidade de posicionamento 
e comodidade do operador. A 
exemplo do vídeo, permite a 
utilização de todos os caracteres 
ASCII e símbolos específicos da 
RCE esa. 

bra 210 pode trabalhar 
com até quatro unidades de dis- 
quetes de 8”, face e densidade 
dias com capacidade total de 

Mbytes (1,2 Mbytes por dis- 
quete) e uma unidade de disco 
rígido winchester de 10 Mbytes, 
esta mediante o uso de uma pla- 
ca de expansão opcional com o 
respectivo controlador. 

A impressora é matricial de 
160 cps, com opção de qualida- 
de carta para processamento de 
textos, e o sistema dispõe de 
até duas linhas de comunicação 
padrão RS232 e velocidade de 
até 19200 bps. 

O novo micro da Cobra pos- 
sui ainda três slots livres para 
placas de expansão, como o con- 
trolador de winchester (disponí- 
vel a partir do segundo semestre 
deste ano) e a via rápida (via de 
comunicação tipo cabo coaxial 
com alcance de até 300 metros), 
já disponível. Outras poderão 
ser desenvolvidas para diversas 
aplicações, entre elas, a de cole- 
ta de dados e pequenos contro- 
les de processo e a de vídeo grá- 
fico. Ainda a respeito da via rá- 
pula, ela poderá se constituir em 

turo próximo na base de uma 
rede local interligando vários 
micros e periféricos. A Cobra, 
apesar de não dispor no momen- 
to de um produto acabado nes- 
se segmento, já vem estudando 
essa possibilidade, seja através 
de desenvolvimento próprio ou 
por intermédio de empresas es- 
pecializadas, como a Cetus, com 
a qual já vem mantendo enten- 
dimentos. 

Fruto de dois anos de pesqui- 


sa e desenvolvimento, o Cobra 
210 tem como uma de suas prin- 
cipais características o fato de 
que toda a sua eletrônica é mon- 
tada numa única placa de circui- 
to E PRO o que permite maior 
facilidade e rapidez de manuten- 
ção. O projeto do 210 também 
já incorpora as normas de padro- 
nização de hardware estabeleci- 
das pelo protocolo Abicomp/ 
Serpro. Com isso, o equipamen- 
to desfrutará de compatibilidade 
a nível de software aplicativo 
com os computadores de outros 
fabricantes que seguirem esses 
padrões. 


RETOQUES NO MARKETING 


lém de modificações a 

nível de produto — o 

210, por exemplo, que- 
bra o padrão de cor cinza-claro e 
cinza-escuro dos equipamentos 
da empresa, substituindo-o por 
um mais agradável bronze e gelo, 
e éo primeiro Cobra a falar BA- 
SIC — a empresa, para disputar 
o concorrido segmento dos mi- 
cros de menor porte, teve que 
fazer algumas alterações em sua 
filosofia de marketing para me- 
lhor adaptar-se às característi- 
cas desse mercado. 

É o caso da política de agen- 
tes — firmas autorizadas a reven- 
derem máquinas da Cobra —, ini- 
ciada com o 305 e que deverá 
ser incrementada com o 210. 
Também a exemplo do 305, a 
Cobra pretende incentivar as 
software-houses a produzirem 
programas para o 210. Qualquer 
empresa que já tenha um produ- 
to para esses equipamentos ou 
pretenda desenvolvêlo receberá 
o apoio da Cobra, garante Marco 
Antonio Tiso, gerente para a 
área de microcomputadores. Es- 
sa ajuda, segundo ele, poderá va- 
riar desde o oferecimento de 
tempo de máquina para o desen- 
volvimento, com a abertura de 
informações técnicas sobre o 
computador, até o auxílio à di- 
vulgação do produto ou mesmo 
o credenciamento para a venda 
de hardware. 

Em sua configuração mais 
simples, com memória RAM de 
64 kbytes, dois disquetes de 8” 
e impressora matricial de 100 
cps, o Cobra 210 será inicial- 
mente vendido por cerca de 1 
mil 100 ORTN. 
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NA PÁGINA 


48, no programa Um REM de Infinitos Bytes, 
terceira coluna, primeiro parágrafo, entre parêntesis, 
deve-se ler: 


CORREÇÃO 


(para evitar qualquer problema troque a linha 
5500 por GOTO 1030). 





10, no programa 4 Rotina Aponta-erros, no quadro 
Aralisando a rotina, corrigir a 202 linha para: 


72 





-.. faz exatamente o que diz, ou seja, lista a linha 
número XXXXX... 
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No BASIC da Servimec você usa constantemente 
o micro computador desde a 1º aula. 


Vantagen: 
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Tel.:229-4600 


para o BASIC da 


s já estão abertas e 
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JVA lança 














Jogos e utilitário 
para Sinclair 





om a proliferação dos 
microcomputadores, O 
mercado de videojogos tornou- 
se um alvo irresistível aos 
“piratas” e sua produção caseira de fitas 
xerocadas. Após a euforia inicial, porém, 
o usuário tornou-se mais exigente e, 
para atendê-lo, surgiram empresas sérias, 
algumas pequenas e independentes, que 
estão comercializando jogos bem 
gravados, bem apresentados e contando 
até com criações originais. Este é o 
caso da JVA Microcomputadores que, 
através da sua marca Ciberne 
Software, acaba de lançar no mercado 
cinco fitas, sendo quatro de jogos 
e uma de utilitário. 
Concebidas para equipamentos da 
linha Sinclair, com um mínimo de 16 
K RAM (TKs 82, 83 e 85, CP-200 e 
Ringo), as fitas foram gravadas pela 
PolyGram, não tendo sido 
verificados, em nenhuma delas, 
problemas de leitura. Elas custam em 
média Cr$ 10 mil cada uma, vêm 
lacradas e as embalagens têm 
acabamento profissional. 
As instruções é que, embora não 
deixem dúvidas, foram impressas em 
letras muito pequenas, podendo 
provocar uma certa dificuldade. Nas 
fitas de jogos isto não é tão grave, mas 
na de utilitário seria conveniente a 
impressão de um folheto à parte, 
uma vez que o usuário necessita 
recorrer às instruções com mais 
frequência. 





Os JOGOS 


As quatro fitas de jogos, embora 
denominadas lançamentos, possuem 
muitos que já são conhecidos. Convém 
salientar que todas elas sofreram 
implementações nos originais 
estrangeiros e alguns jogos são 
criações originais. Um ponto a 
ressaltar é que alguns deles permitem 
ações simultâneas, como atirar e se 
movimentar, o que normalmente não 
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ocorre. Esta novidade faz com que os 
jogos se tornem bem mais emocionantes, 
principalmente quando se usa o 
joystick. 

Cada fita vem com cinco jogos, e dentre 
eles há alguns já bastante famosos, como 
o Enterprise, Mazogs, Crazy Kong e 
Frogger. Uns trazem as suas 

instruções no próprio programa, o que 
facilita a leitura, embora alongue o 
carregamento. Os textos são bons e, no 
caso dos traduzidos, não foi encontrada 
nenhuma expressão absurda, embora 
alguns deslizes de Português como 
escole, ao invés de escolhe, ou 
infelismente, apesar de não 
comprometerem, prejudiquem a 
apresentação dos jogos, cujos desenhos 
são sempre muito bonitos. 

Outra característica das fitas é que os 
jogos em geral foram dispostos em 
ordem crescente de dificuldade, o 

que é bom, pois não causa frustração 
ao usuário, após divertir-se com um 
jogo difícil. Já o intervalo de gravação 
entre um jogo e outro é muito 
pequeno, o que dificulta a busca dos 
jogos quando não se quer seguir a 
ordem da fita. 

Alguns programas respondem com 
muita lentidão ao comando, o que 
poderia ser contornado com uma 
programação mais ágil. O caso mais 
flagrante é encontrado no jogo Frogger, 
cuja proposta é fazer com que um 

sapo atravesse uma rua bastante 
movimentada e, logo depois, um rio, 
pulando sobre toras. Como à 

resposta ao comando do usuário é 
lenta, a travessia da rua acaba por 
tornar-se exaustiva, tantas as vezes que 
o sapo é atropelado. 

Apesar da lentidão do Frogger, a fita 
onde este jogo se encontra, Bichos & 
Cia., é a melhor em termos de conjunto. 
Os outros jogos da fita são Casca, a 
Cobra; Crazy Kong, velho conhecido 
dos fliperamas; Sucuri, o melhor jogo da 
fita, com um belo visual (a cobra vai 
crescendo a cada alimento ingerido, 


CIBERNE. 


SOFTWARE 




























Diversão e alegria em cinco sensacionais jogos 
para o seu micro. Use teclado ou joystick. 


e CASCA A COBRA e FROGGER 
e CRAZY KONG O CENTOPEIA 
e SUCURI 


compatívei: 


CIBERNE s 


SOFTWARE 


Use O teclado ou 0 joystick e teste o seu sangye 
frio nestes cinco excitantes jogos de guerra. 


€ NIGHT GUNNER e DUELO 
e POLARIS e SCRAMBLE 
€ ALERTA VERMELHO 


Com acabamento profissional, 
as novas fitas reeditam 
antigos sucessos e lançam 
originais brasileiros 


dificultando a sua movimentação); 

e a Centopéia, que se divide em duas ao 
ser atingida no meio. Em todos os 
jogos pode-se usar o joystick. 

A fita Combate, ao contrário, não 
aceita o joystick, o que é decepcionante, 
tendo em vista que são todos jogos de 
estratégia e ação. Night Gunner tem 
movimentação um pouco confusa; 
Alerta Vermelho é um bom jogo; 
Scrambler exige a utilização 

simultânea de oito teclas (em cima, 

em cima à esquerda, em cima à direita 
etc.), o que o torna um pouco 
complicado, exigindo do usuário uma 
habilidade motora espetacular. Neste 
caso é inconcebível a não utilização do 
joystick. Os destaques vão para Duelo, 
muito enfadonho quando jogado contra 
o computador, mas bem interessante 
quando disputado a dois; e é ótimo o 
Polaris, uma criação dos brasileiros A.C. 


MICRO SISTEMAS, Junho/84 


Lobo e J. Eduardo. Trata-se de um 
jogo que exige inteligência, paciência 

e decisão e, como sugere a própria 
instrução, é melhor mapear a região do 
conflito, pois caso contrário o jogo 
torna-se sem graça, com o jogador sem 
saber o que fazer e dando ordens a 
esmo ao computador. 

Na fita Aventura e Mistério, o jogo 
Sabotagem, após uma bela apresentação, 
é muito lento na distribuição de 

caixas dentro de um armazém que 
antecede o início da partida. Além 
disto, vale observar que a opção de 
jogar no papel do sabotador é bem mais 
interessante do que como guarda. O 
jogo Aventureiro, que de aventuras não 
tem muito, nos parece algo enfadonho. 
Já o conhecido Mazogs é o melhor de 
todos os jogos das quatro fitas. Para 
quem não conhece, trata-se de um 
labirinto onde o jogador deve achar um 
tesouro e sair ileso, após enfrentar 
alguns monstros. A Pirâmide Inca é 
bastante interessante e divertida; e o 
USS Enterprise é razoável, exigindo que 
se façam anotações, já que é um jogo de 
ação mental. 

Patrulha Galáctica é a fita mais fraca. 
Nave Mãe, apesar de ter três níveis de 
dificuldade e opção para jogar-se 
sozinho ou em dupla, não chega a 
motivar. Em Galáctica, exige-se do 
jogador muito mais sorte do que 
inteligência. Fungos Mutantes é bem 
interessante; SOS Vega III é o melhor 
jogo da fita, exigindo do jogador 
atenção e rapidez; e Perseguidor, 
também conhecido como Galáctica nos 
fliperamas e como Galaxy na linha 
TRS-80, é fácil e lento, sendo bom 

para aqueles que dão seus primeiros 
passos em videojogos. 

O ideal seria se a JVA colocasse no 
mercado uma quinta fita com os cinco 
melhores jogos, o que beneficiaria 
aqueles que não têm Cr$ 40 mil para 
adquirir toda a coleção, mas poderiam 
pagar mais que Cr$ 10 mil por uma 
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SOFTWARE so 


fita realmente sensacional. Sem sombra 
de dúvida, esta fita conteria Polaris e 
Duelo, da fita Combate; Mazogs, da 
Aventura e Mistério; Sucuri, da Bichos 
& Cia.;e SOS Vega II, da Patrulha 
Galáctica. 


UTILITÁRIO 


A outra fita da JVA, também 
comercializada com a marca Ciberne 
Software e com preço semelhante às ue 
jogos, traz três excelentes utilitários. 
Com o nome de ROT II, ela vem com 
um compilador Assembler, um 
disassembler e um compilador BASIC. 
Todos os três utilitários são baseados em 
similares estrangeiros, mas possuem 
implementações bastante interessantes. 
Um exemplo é o disassembler, que foi 
baseado no ZXBUG, da Artic Computing, 
mas entre as implementações está 


SOFTWARE 


ROTII 


e ASSEMBLER — Z80 
e DESASSEMBLER —- Z80 
e COMPILADOR BASIC 


CIBERNE “a 


TK 82/83/85. CP-200 E: COMPATÍVEIS 


um comando para criar linhas REM, além 
de alguns erros de disassemblamento 
terem sido corrigidos do original. 
Outro exemplo é o Comando Copy, 
para tirar cópia do que estiver no vídeo 
para a impressora. 
O problema da fita, porém, são as 
instruções, que além do tamanho da letra, 
muito pequena, dificultando a leitura, 
deixam o usuário sem saber exatamente 
até onde vai a capacidade dos 
programas. Com isso, torna-se 
indispensável para quem for utilizar a 
fita ter algum conhecimento de 
Assembler e mesmo de organização do 
sistema operacional dos equipamentos. 

= 


sa, 





As fitas da empresa JVA foram 
analisadas no CPD de MICRO 
SISTEMAS. Texto final: Lúcio Santos 
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Proteção integral para o seu Micro 


EN 


Quando a rede elétrica faltar, GERATRON 
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Linha Especial para Micros 
Proteção completa para o seu micro. 
mantendo a alimentação altamente 
estável e sem interrupção. Forma de 
onda senoidal. Capacidades de 0.25, 0.4, 
06. 1,15,25,3.5e 5 KVA. Opera com 
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km/s, gastando todo o combustível res- 














Experimente a sensação de estar na quarta dimensão. Será que você conseguirá permanecer n an: PALISE tante. 
lá por muito tempo? Aceite o desafio e teste o seu “fôlego” no seu PC-1211 190: PAUSE Gfcis codéio 4º objetivo — Manter-se na quarta di- 
DIGITE :" 245: IF nt o mensão o maior número possível de jo- 
195: PAUSE "O PZ€ GOTO 400 4z0: PAUSE ', gadas através de comandos fornecidos 
GNTINUAR EM Ss: IF M$="E! AVE DESTRUID no visor (cuidado, pois você poderá vol- 
FRENTES" GOTO 235 AM - tar ao planeta conforme o comando). 
200:PALUSE "D P/ a S S00: BEEP 1 Ao final, você receberá o total de pon- 
IR A DIREIT GUTO 400 :REEP 3 tow onto na partidia: 
5 260: IF M : BEEP 2 
205: PAUSE "E Pr GUTO 400 03: PRINT "TOTAL 
e IR À ESQUER 2 ' DE PONTOS= OBSERVAÇÕES 
DAS" K ; sk e VS 
P r 1 Z10:PAUSE "T Po 270: IF M$="Pé END no 
IR PÁRA TRAZ G ; INPUT “ESCOL e Toda vez que estiver imprimindo algo 
x an ; CT Ha NUM.DE 1 no visor, após ter lido e memorizado, 
PA 2S:PAUSE “CI P ' : VECE :LE GOTO lembre-se de apertar a tecla ENTER. 
- IR PARA CI FOI TRAGADO 810 o A contagem de pontos é feita da se- 
Mas POR UM! INPUT "gUuTRO | &uinte maneira: 
>2>20:PALSE "BA P FALSE " c NUM.DE 1 A a) a cada jogada, para sair da órbita do 
IR PARA BA AMPO DE FORC g=";[:K=K+10 | Planeta, você receberá 75 pontos; 
PoE PT b) se conseguir sair da órbita você re- 
225: PAL "ns PA 402: PALISE " s10: ' CTri ceberá 150 pontos; 
Rá PARAR!" E s a c) se conseguir passar para a quarta di- 
José Alexandre Dell'Isola 230: INPUT "QUAL 405:PAUSE " g15: 1FiL=spause |  mensão receberá 500 pontos; 
E O COMANDO? u “VOLTOU AG d) a cada comando você receberá 750 
";M$:GOTO 2 410:PAUSE PLANETA!" pOntõE; ; 
40 z GOTO 5 e) a cada escolha de número (na quarta 
2 - 415: PAUSE : : RETURN dimensão) você receberá 1000 pontos. 
a A ad e Para começar o jogo, coloque o com- 


n putador no modo DEF e aperte as te- 
clas SHIFT e J. a 
e Boasorte! [5 


$:kK 








uarta Dimensão é um jogo 
que depende de muita sorte e : E 
raciocínio lógico. Escrito para Quarta dimensão 
o computador de bolso PC- 
1211 Sharp, usa 1418 passos 





JESP CEN 5 


O único terminal teleimpressor fabricado no Brasil. 


ASA, Indústria de Impressoras S/A, acaba de lançar o 











e todas as 178 memórias, sendo, por : : as: s<=0G0TO so: PAUS Peso? : - ar 

iso indispensável que não he nertum | 4; CS CASE prio ioloiruress gonuecno into Pas : 

Nr bdo o cv "DE 30: INPUT "COMPU DADE ! :K=K+ de trabalho. Imprime por matriz de pontos 9x7, Ê 

máquina. a SEU NOMECTL IVEL PERDI Sã permitindo até 8 cópias impressas, com uma z 

O jogo é composto de vários objeti- ETR , “PRINT "COMBU velocidade de 100 C.P.S. Equipado com 

vos, mas O principal é tentar permanecer 12: PAU! A$ as ; STIVEL" Res memória standard de 2 K caracteres, 

o maior tempo possível na quarta di- 15: INPUT “ESCOL E : Er INPUT "GASTE utilizando formulário continuo, 

mensão. Para tal, você receberá uma na- “Ha UM NUMERO 100: 4 ss (=P ac DO COMBUS folhas soltas ou bobina de papel. 

ve sem combustível em um planeta ima- ME = e vo. De 64 até 132 caracteres por 

ginário, tendo que: ms e (500+% 105: - j Ponto hspemana raça 

objetivo — Adqur grande quando é Rad en 

de de combustível para a viagem (na ba- 110: s a pa comunicação é de 

se da sorte). Você digitará um número RE “ GaTO 150 - “PAUSE * Nai 50 a 9.600 B.P.S. 

qualquer e, através de uma somatória de TE À k EGUIU E 8 diferentes 

números aleatórios, receberá o combus- *Y=PB-INT cR/ Rr po UM tipos de 

tível total. s >0: IF H>= ( s0: PAUSE à impressão. 

29 objetivo — Sair da órbita terrestre s: Pé “ e E QUARTA DIMEM ) 

sem gastar todo o combustível, fazendo ps a - SACI VE GUTO S . Conheça mais 

o maior número possível pejoracas fo: ES NT “CO j an. go / RA detalhes do 

ra cumular pontos). Você receberá a al- CC eTIVEL="I% ' j ) pares gd “VEL Gr Teleimpressor 

tura da nave, sua velocidade e o combus- Es: Abd al IR o 1 su 85: PRINT So a o 5 KSR na 

tível restante, e deverá digitar o combus- — p=sH o . ME! ) ISA E 

tível perdido. Atenção, pois você só sai- TO: PAUSE "VELGC VEL= ari P ? INDUSTRIA DE IMPRESSORAS S.A. 4) 

rá da órbita quando atingir uma altura IDADE="5W PRINT " MAG il PZ A O Escritorio: SISTEMA DE PROCESSAMENTO DE DADOS E TELECOMUNCAÇÕES 

maior ou igual a 5.000 m ou velocidade 75: PAUSE "COMBU % CONSEGUIU S ; E R Prol. Jose Marques da Cruz, 234 MATRIZ: Rio de Janeiro - R. Republica do Libano, 61 - 12º and 

maior ou igual a 3.500 km/s. Se VEL =15% ao O Rua Centro Alricana, 74 FILIAIS: S. Paulo R. Frei Caneca, 1119. TEL. (011) 284.851 Tolex OS IV 2EAB 
PE r TIVEL="5% ATRI"SGOTO S Teis.: (011) 240-2442 - 543-4939 Brasiia SOS OZ. Bloco Ene Wi SL. 01 Teia (081) 2251588. Teles (064) 1750 

39 objetivo — Passar para a quarta di- gn: E=K+75 oo DIMENSAO 1 Telex: (011) 36926111M BR Porto Alegre - Rua Santa Terezinha, 300. Tel (051)32.3564 - Telex (051) 2144 


mensão. Para isso você terá que atingir São Paulo-S.P Goiânia - Belo Horizonte - Salvador 


velocidade superior ou igual a 5.000 
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diofuoisjls 
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Se você tem pequenas rotinas e programas utilitários 
realmente úteis tomando poeira em seus disquetes ou fitas 
cassetes, antecipe-se aos piratas e trate de divulgá-los. En- 
vie-os para a REDAÇÃO DE MICRO SISTEMAS — SEÇÃO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centro, 
Rio de Janeiro, RJ, CEP 20030. Não se esqueça de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua descoberta poderá ser útil para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 


TRS-80 


Tela piscante 


Incremente seus programas criando um efeito de pisca- 
pisca na tela. 








o 


10 CLEAR 2000:DEFINT 1 

20 IF PEEK(16396)()204 THEN DEFUSR=32000 
ELSE POKE 16526,0:POKE 16527,125 

30 FOR I=32000 TO 32016:READ Y:POKE I,Y:NEXT 

40 X=USR(C0):G0TO 40 

S0 DATA 33,0,60,54,491,47,1,60,1,255,3,297, 
176,205,201,1,201 





Marcos Portnoi — BA 





SINCLAIR 


Desvio condicional otimizado 


Economize memória e tempo de execução em seus 
programas, agilizando os desvios condicionais com a 
seguinte técnica: 
onde houver desvios do tipo 
10 INPUT À 
20 IF A=2 THEN GOTO 
30 IF A=3 THEN GOTO 
40 IF A=4 THEN GOTO 


use recursos como 


£0 INPUT À 
20 GOTO AXÍíDOO 





José Ronaldo dos Reis — SC 












SINCLAIR 


Acelerando o SLOW 


Execute seus programas em BASIC numa velocidade 
maior que em SLOW, ou então use esta rotina como 
um efeito visual: 


16514 FD CB 3B Fó CD 07 02 DD 
ióseoo 2í BE 40 C9 ED SF Oí 04 
416530 49 3E FS CD BS 02 CD 92 
16538 é CD 20 02 DD 21 AS 40 
16546 C3 A4 02 D3 FD JA 28 40 
16554 C6ó Cà 32 28 40 CD 92 02 
16562 CD 20 02 DD 21 BE 40 C3 
16570 A4 02 


Para utilizar esta dica, dê RAND USR 16514; para 
fazer com que o micro volte ao estado normal, basta te- 
clar qualquer uma destas instruções: FAST, PAUSE, 
COPY, LLIST ou LPRINT. 

Depois de colocar esta dica no seu equipamento, tes- 
te a diferença com este programa: 

q 


íO0 SLOW 

20 GOSUB 100 

30 RAND USR 16514 

40 GOSUB 100 

SO IF INKEY$6=7” THEN GOTO 350 
Bo COPY 

90 STOP 

100 FOR A=í TO 30 

440 PRINT AT 40,155Ã57 4 
120 NEXT À 

130 RETURN 





Paulo de Tarso Cardoso de Almeida — SP 


Linha TRS-830 (l) 


Desative o RUN e o LIST 


Uma boa forma de proteger seus programas é desativar o 
RUN dando um POKE 17128,N (sendo N um número qual- 
quer entre 1 e 255). Assim, o computador acusará erro de 
sintaxe quando algum pirata tentar dar um RUN no seu 
programa. 

Outro macete é bagunçar o LIST com um POKE 17129, N 
(tendo N qualquer valor diferente de 239) ou com POKE 
17130,N (N diferente de 66), pois com isso o olheiro não 
vai entender nada quando der um LIST. Pode-se ainda con- 
seguir o mesmo efeito colocando o valor 255 nos endereços 
de 17129 até 17132, mas este método tem restrições por- 
que não pode ser usado em um programa que use um GO- 
TO de uma linha maior para uma linha menor. 

É importante, para maior segurança, testar esses endere- 
ços antes do POKE com o PEEK, pois esses valores podem 
ser diferentes no seu equipamento. 





Alessandro Zimmer-PR 











Memorizando a tela 


£0 CLEAR 3000:2DEFINT I:DIM VIDEO 
em FOR 1=15360 TO 16383 

30 VIDEOSBCI-L5360)=CHRECPEEKCT)) 
40 POKE 1,95 

SO POKE I,ASCCVIDEOSCI-LSI640)) 
60 NEXT 





Para recuperar a imagem, digite: 


70 CLS:FOR I=0 TO 1023:PRINT VIDEOSCI); 


2NEXT 








Use esta rotina para arquivar uma tela de vídeo numa variável String: 










Rapidez em 
longos REMs 


Para digitar linhas REM com mui- 
tos caracteres em suas rotinas em lin- 
guagem de máquina, use este artifício 
e ganhe mais tempo e segurança: 


6(1023) 














1 PRINT 7+8+8+8+8... +8+8 









Rode esta linha e saiba a quantida- 
de de bytes que estão disponíveis na 
linha 1 (cada + 8 equivale a 8 caracte- 
res). Para substituir PRINT por REM, 
digite POKE 16513, 234. 





































Teste 











10 CLS & X=RND(45) : SET (iaz, 
20 FOR A=47 TO O STEP -4 & SET 
30 IF INKEY6=72 NEXT : PRINT “ 
40 FOR B=0 TO 127 : SET (<B,Ã) 
S0 IF A=X PRINT “NO ALVO.” ELS 
60 IF INKEY6="2 60 ELSE RUN 








SINCLAIR 


após SCROLL 


Não perca tempo esperando a 
execução de um CLS após o uso 
de instruções SCROLL: impeça 
que o arquivo de vídeo (D-FILE) 
passe para o modo reduzido. Para 
isso, imprima um caracter qualquer 
(ou espaço vazio) na última posi- 
ção de cada linha (TAB 31), logo 
após um SCROLL. 








da imagem. 


Marcos Portnoi — BA 


Linha TRS-80 







Dalvino Francisco Salvador — SC 





a mira 


Treine sua pontaria tentando acertar o alvo que está à direita neste programa em BASIC. Depois de digitá-lo, é 
só esperar até que a barra da esquerda atinja a altura certa e atirar (pressionando qualquer tecla). 


x) 
(0,8) : FOR B=í TO 40 : NEXT 
PERDEU SUA CHANCE... 2 GOTO 60 

* NEXT 
E PRINT “ERRROOOQUUUUU., «4 4 





7 






Para tornar este jogo mais interessante, teste a sua imaginação incremen- 
tando-o com uma apresentação, efeitos sonoros, contadores, mensagens, re- 
cordes... 








Renato Degiovani — RJ 


Linha SINCLAIR 
Agilize o CLS 






Reduza o tempo de apagar a tela com o CLS usando esta dica: 
í LET FP= 
e POKE 4 
3 POKE 416388,FP-INT CFP/256)%256 










K 16396 
389, INT CFP, 


1639716509 
& 


É interessante observar que haverá uma pequena demora na formação 














Dalvino Francisco Salvador — SC 


Edson Cury — SP 




















OO 0111 0100 0000 1100 1111 
ago 1000 oo10 





Curso de 
Assembler - XVH 








esta lição vamos abordar um grupo de instruções pouco uti- 
lizado, porém de grandes recursos para a elaboração de programas. Esta- 
mos falando do grupo de ROTATE e SHIFT. Passemos então à descri- 
q destas instruções. K 

— Rotação Circular do Acumulador à Esquerda 

Formato: RLCA , E 
Operação: O conteúdo de cada bit do Acumulador é movido para o bit 
à sua esquerda. 
Código objeto: 


RLCA 


00000111 


Descrição: O conteúdo do Acumulador (registrador A) é rotacionado pa- 
ra a esquerda: o conteúdo do bit O é movido para o bit 1, o conteúdo 
anterior do bit 1 é movido para o bit 2, e este padrão é tido para 
todos os bits do registrador. O conteúdo do bit 7 é codado: na Carry 
Flag (Flag C do registrador F), assim como no bit 0. 

Ciclos de máquina (M):1 


Page afetada S — não afetad! 

safetadas: S — etada; 

Z — não afetada; 
H — ressetada; 
P/V — não afetada; 
N — ressetada; 


C — bit copiado do bit 7 do Acumulador. 
Exemplo: Se o conteúdo do Acumulador é 


10001000 


após a execução da instrução RLCA o conteúdo da Carry Flag será 1 e 
o conteúdo do Acumulador será: 


000100071 


2 — Rotação do Acumulador à Esquerda 

Formato: RLA a , 
Operação: O conteúdo de cada bit do Acumulador é movido para o bit 
à sua esquerda. 

Código objeto: 


RLA 
000 TWT 


Descrição: O conteúdo do Acumulador (registrador A) é rotacionado 
para a esquerda: o conteúdo do bit O é movido para o bit 1, o conteúdo 
anterior do bit 1 é movido para o bit 2, e este pano é repetido para to- 


dos os bits do registrador. O conteúdo do bit 7 é copiado na Carry Flag 
(Fis C do registrador F) e o conteúdo anterior da Pag Carry é copiado 
no bit O. 

Bo 


Cliclos de máquina (MJ: 1 


States (T):4 

Flags afetadas: S — não afetada; 
Z — não afetada; 
H — ressetada; 


P/V — não afetada; 
N — ressetada; 


C — bit copiado do bit 7 do Acumulador. 
Exemplo: Se o conteúdo da Flag Carry é 1 e o conteúdo do Acumula- 


dor é 


após a execução da instrução RLA o conteúdo da Carry Flag será O e 
o conteúdo do Acumulador será: 


3 — Rotação Circular do Acumulador à Direita 

Formato: RRCA j 

Operação: O conteúdo de cada bit do Acumulador é movido para a sua 
direita. 

Código objeto: 


RRCA 
07070707 111 


Descrição: O conteúdo do Acumulador (registrador A) é rotacionado 
para a direita: o conteúdo do bit 7 é movido para o bit 6,0 conteúdo an- 
terior do bit 6 é movido para o bit 5, e este padrão é repetido para to- 
dos os bits do registrador. O conteúdo do bit O é copiado na Carry Flag 
(Flag C do registrador F), assim como no bit 7. 

Ciclos de máquina (M): 1 

States (T): 4 

Flags afetadas: S — não afetada; 


Z — não afetada; 

— ressetada; 
P/V — não afetada; 
N — ressetada; 


C — bit copiado do bit O do Acumulador. 
Exemplo: Se o conteúdo do Acumulador é 


000100071 


após a execução da instrução RRCA o conteúdo da Carry Flag será 1 e 
o conteúdo do Acumulador será: 


10001000 


4 — Rotação do Acumulador à Direita 
Formato: RRA 
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Operação: O conteúdo de cada bit do Acumulador é movido para o bit 
à sua direita. 
Código objeto: 


» 
>= 
> 


Descrição: O conteúdo do Acumulador (registrador A) é rotacionado. 


para a direita: o conteúdo do bit 7 é movido para o bit 6, o conteúdo 
anterior do bit 6 é movido para o bit 5, e este padrão é tido 
todos os bits do registrador. O conteúdo do bit O é copiado na 
Flag (Flag C do registrador F) e o conteúdo anterior da Flag Carry é 
copiado no bit 7. 
Ciclos de máquina (MJ: 1 
States (T): 4 
Flags afetadas: S — não afetada; 

Z — não afetada; 

H — ressetada; 

P/V — não afetada; 

N — ressetada; 

C — bit copiado do bit O do Acumulador. 
di aç Se o conteúdo da Flag Carry é O e o conteúdo do Acumula- 

r 


ro O 071 


após a execução de RRA o conteúdo da Carry Flag será 1 e o conteúdo 
do Acumulador será: 


04140000 


5 — Rotação Circular de Registrador à Esquerda 

Formato: RLC r 

Operação: O conteúdo de cada bit do registrador especificado na ins- 
trução é movido para o bit à sua esquerda. 

Código objeto: 


RLC 


00 0 0 OW Rm 


onde rrr pode assumir os seguintes valores: 





000 para rrr 
001 para rrr 
010 para rrr 
011 para rrr 
100 para rrr 
101 para rrr 
110 para rrr 
111 para rrr 


registrador 
registrador 
registrador 
registrador 
registrador 
registrador L 

posição de memoria (HL) 
registrador A 


:zmoor 


MAMMA 








Exemplo: 


RLC D 


oo oo 0.1] 


Descrição: O conteúdo do registrador especificado na instrução é rota- 
cionado para a esquerda: o conteúdo do bit O é movido para o bit 1,0 
conteúdo anterior do bit 1 é movido para o bit 2,e este ão é repe- 
tido para todos os bits do registrador. O conteúdo do bit 7 é copiado na 
Carry Flag (Flag C do registrador F), assim como no bit 0. 





INSTRUÇÃO 


CICLOS DE MÁQUINA(M) STATES(T) 
RLC r 2 8(4,4) 
RLC(HL) 4 15(4,4,8,3) 


Flags afetadas: S — setada se o resultado é negativo, senão é ressetada; 
Z — setada se o resultado é zero, senão é ressetada; 
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H — ressetada; 
hd — setada se a paridade é par, senão é ressetada; 


— ressetada; 
€ — bit copiado do bit 7 do registrador fonte. 
Exemplo: Se o conteúdo do Acumulador é 


10001000 


após a execução da instrução RLC a o conteúdo da Ca; serále 
o conteúdo do Acumulador será: iii 


000100071 


6 — Rotação Circular à Esquerda de Registrador Indexador 
Formato: RLC (IX+d) 
—  RLCAY+d 
Operação: O conteúdo de cada bit do endereço de memória especifica- 


do pelo registrador indexador é movido o bit à sua esquerda. 
Código objeto: E 2a 


RLC (IX+d) ou RLC (IYy+sd) 










ddadadaaadãadãad 
00000110 


onde r pode assumir os seguintes valores: 


registrador indexador IX 


registrador indexador IY 





Descrição: O conteúdo da posição de memória especificado pela soma 
do conteúdo do registrador indexador (IX ou IY) com o deslocamento 
d em complemento de 2 é rotacionado para a esquerda: o conteúdo do 
bit O é movido para o bit 1,0 conteúdo anterior do bit 1 é movido para 
o bit 2,e este padrão é repetido para todos os bits. O conteúdo do bit 7 
é copiado na Carry Flag (Flag C do registrador F), assim como no bit 0. 
Ciclos de ina (M): 6 
States (T): 23(4435 4,3) 
Flags afetadas: S — setada se o resultado é negativo, senão é ressetada; 

Z — setada se o resultado é zero, senão é ressetada; 

H — ressetada; 

P/V — setada se a paridade é par, senão é ressetada; 

N — ressetada; 

C — bit copiado do bit 7 do endereço fonte. 
Exemplo: Se o conteúdo do registrador IX é 1000H e o conteúdo do 
endereço de memória 1002H é 


10001000 


após a execução da instrução RLC (IX + 2) o conteúdo da Carry Flag 
será 1 e o conteúdo de memória especificada será: 


00010001 


7 — Rotação à Esquerda 
Formato: RLm 


Operação: O conteúdo de cada bit do operando m é movido para o bit 
à sua esquerda. 
Código objeto: 


00010Trrr 


» 

rs 

m 
es 
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RL (HL) 


00010110 


RL (IX+d) 


0110 


ddadadaada ada ad 








onde rrr pode assumir os valores que estão na figura 1. 
Descrição: O conteúdo do operando m é rotacionado para a esquerda: 





000 para rrr = registrador 
001 para rrr registrador 
010 para rrr registrador 
011 para rrr registrador 
100 para rrr registrador 
101 para rrr registrador 
111 para rrr registrador 


| 


»>rzmooaorm 








Figura 1 


o conteúdo do bit O é movido para o bit 1,o conteúdo anterior do bit 
1 é movido para o bit 2, e este padrão é repetido para todos os bits. O 
conteúdo do bit 7 é copiado na Carry Flag (Flag € do registrador F) e 
o conteúdo do anterior da Carry Flag é copiado no bit O. 




















INSTRUÇÃO CICLOS DE MÁQUINA(M) STATES(T) 

RL r 2 | 8(4,4) 

RL (ML) ' 15(4,4,4,3) 

RL (IXed) 6 23(4,8,3,5,4,3) 
RL (Ived) 6 | 23(4,4,3,5,4,3) 











Flags afetadas: S — setada se o resultado é negativo, senão é ressetada; 
Z — setada se o resultado é zero, senão é ressetada; 


H — ressetada; 
P/V — setada se a paridade é par, senão é ressetada; 
N — ressetada; 


C — bit copiado do bit 7 do registrador fonte. 
Exemplo: Se o conteúdo da Carry Flag é O e o conteúdo do registrador 


Dé 


após a execução da ditado RL D o conteúdo da Carry Flag será 1 e 
o conteúdo do registrador D será: 


00011110 
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8 — Rotação Circular à Direita 

Formato: RRC m 

Operação: O conteúdo de cada bit do operando m é movido para o bit 
à direita. 

Código objeto: 


RRC r 


00 0 1 rr 


É 


RRC (HL) 


000. 001110 


RRC (IX+d) 





RRC (IY+d) 





onde rrr pode assumir os valores que estão na figura 1. 

Descrição: O conteúdo do operando m é rotacionado para a direita: o 
conteúdo do bit 7 é movido para o bit 6, o conteúdo anterior do bit 6 
é movido para o bit 5, este padrão é repetido para todos os bits. O 
conteúdo do bit O é copiado na Carry Flag (Flag C do resgitrador F), 
assim como no bit 7. 




















INSTRUÇÃO CICLOS DE MÁQUINA(M) STATES(T) 

J 
RRC Fr | 2 | s(a,8) 
RRC (NL) | . | 15(4,8,4,3) 
RRC (IX+ed) 6 23(4,8,3,5,8,3) 
RRC (IY+ed) 6 23(8,4,3,5,8,3) 











Flags afetadas: S — setada se o resultado é negativo, senão é ressetada; 
Z — setada se o resultado é zero, senão é ressetada; 


H — ressetada; 
P/V — setada se a paridade é par, senão é ressetada; 
N — ressetada; 


€ — copiado do bit O do registrador fonte. 
Exemplo: Se o conteúdo do registrador A é 


001100071 


após a execução da instrução RRC A o conteúdo da Carry Flag será 1 e 
o conteúdo do registrador A será: 


10011000 = 
o 





Amaury Correa de Almeida Moraes Junior é formado pelo curso de Aná- 
lise de Sistemas da FASP, tendo feito diversos cursos de aperfeiçoamen- 
to nas áreas de Eletrônica Digital e Microprocessadores, e atualmente 
trabalha na área de microcomputadores para o Citybank. 
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* RAMCARD e SOFTCARD e VIDEOTERM * SOFTVIDEO SW * PROGRAMMER * PROTOCARD * INTF. DISKS 
e INFT. PRINT e SATURN 128K RAM. * SATURN 64K RAM. * SATURN 32K RAM. * RANA QUARTETO * MICROMODEM II 
* MICROBUFFER || * MICROCONVERTER Il HE MICRO VOZ | HH ULTRATERM HE ALF 8088 CARD 
EE ASOO DISK CONT IE MULTIFUNCTION CARD 


s MICROCRAFT MICROCOMPUTADORES LTDA. 
ADMINISTRAÇÃO E VENDAS: AV. BRIG. FARIA LIMA, 1.664 - 3º ANDAR - CJ 316 - CEP 01452 
FONES (011) 212-6286 E 815-6723 - SÃO PAULO - SP - BRASIL 


ESCOLA DO FUTURO. HOJE! 


A DIGITUS- INDÚSTRIA DE COMPUTADORES tem procurado atender 
ao usuário do DGT-1000, colocando no mercado novos equipamentos 
aumentam a versatilidade do microcomputador. 
com esse objetivo, que a DIGITUS lança a UCTE - um módulo que 
ao DGT-1000 irá atender aos profissionais principalmente 
da educacional. 


Foi dada a largada! O carro adversário se desgoverna e dispara de encontro ao seu. 
Para ganhar esta parada, vá desviando, e mostre ao seu Apple quem é o campeão 















Um enduro micro-louco 


Cláudio Leonardo Milione Dutra 
pi pai AA) 


ste é um jogo simples, mas ideal para divertir os e para esquerda, e para pará-lo use a barra de espaço. As 

usuários do Apple e compatíveis nas tardes de domingo. | teclas 1 e 2 selecionam a primeira e a segunda marcha, 

O objetivo é evitar a batida do carro adversário respectivamente. 

(do micro) contra o seu, até que o tempo da corrida Pronto para a largada? Então corredor, pé na tábua e mão 
se esgote nas teclas! 


Para movimentar O seu carro, pressione as setas para a direita 


ILIST 


INFORMÁTICA AO 
BM sóis 
="2 DETOD 
[came | 


ENTRE NA ERA 
DOS COMPUTADORES 


TAXA Cr$ 30.000,00 
UNICA SEM MENSALIDADE 


100 TEXT : POKE 34,0: HOME : SPEED= 
255 
REM esennneranaanananaam 

110 REM «BY CLMD PRODUCTIONS+ 
REM esenanananananananaa 


REM EXPLICACAO 

HTAB 15: INVERSE : PRINT “EN 
DURO": NORMAL : VTAR 3: HTAB 
2: PRINT " PARA MOVER O CARR 
O USE AS SETAS": VTAB 5: HTAB 
2: PRINT " A BARRA PARA O CA 

RRO": VTAB 7: HTAB 2: PRINT 


* TECLAS "1º & *2” SELECIONA 








e Introdução ao Processamento dg O Bo Rio do Rj. 
de Dados e Digitação e Basic REM PAISAGEM UCTE- Unidade Controladora de Terminais Educacionais. toi: (021) 257-2960 
e Cobol e RPG e PL 1 Fortran Esta unidade ia pomitoa com a comunicação entre um DGT-1000 central com até 16 (dezesseis) DGT-1000 secundários 
e Assembler e Mumps afOLOR= 10 pensem iara ser computadores na configuração minima pole sendo a comunicação através 
SOSUE 145: Goro 185 Pop serdeçoa não é neces y per rt im pri uma configuração minima de 4KB de memória e 
227-7417 - 521-4936 - 267-9261 A TO 8 STEP - 1 O computador contrai, comandado 
Copa — Centro — Tijuca — Meier Pi RREO se se O sistema permite so instrutor carregar programas nas esteçõos Indvidugis, podendo aplicar proves e toras 
Madureira — N. Iguaçu — Caxias A Saco meter Os estucantos poderão grevr e carrega programas diretamente no computador do 
DATABERAN — PROCESSAMENTO IS: = 25:8 = 39: Gosus DE DO DRA AS SOCO AÇÃO O Oparagdu de computadores, atá de permitir 
Fc ds O RN cer & A UCTE dispensa o USO incômodo do cassete e o Seu custo é menor do que comprar os gravadores para os 


terminais. 
MICRO SISTEMAS, Junho/84 0BS.:A UCTE pode ser utilizada com o DGT-100. Consulte seu revendedor. 
































25,28 AT 4: HLIN 24,29 AT 5: O: GOSUB 435:C = C + X: COLOR= 
HLIN 25,28 AT 6: HLIN 26,27 7: GOSUB 435: VTAB 23: HTAB 
AT 7 25: PRINT * * “: GOTO 365 
200 COLOR= 12 345 IF R > 10 AND SCRN(B+ 4,0 O ueno Fa 
205 A = O:B = 39 ) < > 15 THEN COLOR= O: GOSUB = 
210 FORN=32TOl6STEP -—-1 435:B = B + 2:C = C + X: COLOR= micro. Compatível com 
215 MHLIN O,A AT N: HLIN B,39 AT 7: GOSUB 435: VTAB 23: HTAB programas em fita 
N 25: PRINT" >" cassete ou em disco. 
COLOR= 15 350 IF R > 10 AND SCRN(EB+4,C ' 


Z20 :A = A+ 1:B = B- 1: NEXT : 


225 À = O:B = 39 ) = 15 THEN COLOR= O: GOSUB Agora, na hora de escolher entre um Pode ser ligado ao seu"áparelho de TV, da 






230 FOR = 32 TO 16 STEP - 1 435:B = B - 2: COLOR= 7: GOSUB ci 4 i f 

235 PLOT ANS PLOT BAN 435: VTAB 23: HTAB 25: PRINT microcomputador pessoal simples, de fácil mesma forma que no terminal de vídeo 

240 A = A+ 1:B=B-1: NEXT neo manejo e um sofisticado microcomputador de uma grande empresa i 
245 FORN=10TOOSTEP -1 355 IF R< SAND .SCRN( B- 2,0) profissional, você pode ficar com os dois. Com o CP 300 você pode k 
250 VTAB 21: HTAB 15: PRINT N$" < 15 THEN COLOR= O: GOSUB 


SEC. PARA A LARGADA " 435:B = B- 2:C = C + X: COLOR= Porque chegou o novo CP 300 Prológica. fazer conexões telefônicas 


255 FORK = 1 TO S00: NEXT 72 SOmUo fia: VTAB 25: HTAB O novo CP 300 tem preço de . para coleta de dados, 
2 = Ç - , 285: NEC o o NS 
260 0 = PEEK ( — 16356 são: RR eat ms 2:0) microcomputador pequeno. Mas memória “) se utilizar 
270 HOME = 15 THEN COLOR= O: GOSUD de microcomputador grande. é de uma 
275 REM JOGO 435:B = B + 2: COLOR= 7: GOSUB i 
Ele já nasceu com 64 impressora Pode ser ligado 


280 CLEAR 
205 X = 1 
290 A = 19 


435: VTAB 23: HTAB 25: PRINT 


kbytes de memória 
interna com 


e ainda dispor de todos 
os programas existentes 


a um televisor comum 
ou a um sofisticado 
terminal de vídeo. 


365 IF E = 136 THEN COLOR= O: GOSUB 
420:A = A — 1: COLOR= 5: GOSUB 


Z > 
4 ad 
A 


500 COLORE 7: G08UB 435 420 possibilidade de Permite para o CP 500 ou o 
305 FORT = 500 TOOSTEP -1 370 IF E = 149 THEN COLOR= O: GOSUB E expansão de memó- mia TRS-80 americano. E o que é melhor: 


310 E = PEEK ( - 16384) 420:A = A + 1: COLOR= 5: GOSUB ria externa para até 


Pode ser você estará apto a operar qualquer 


315 2X = PEEK ( — 16336) 420 Peiovsgadã ; 
s20 VTAD 22º HTAB 28: PRINT “TEM 375 IF SCRN(A - 1,31) = 12 OR De quase 1 megabyte. outro sistema de microcomputador. 
Es PO = st ao so RR UNS NEN BOTE E tem um teclado profissional, Nenhum outro microcomputador pessoal 







330 IF C> =31 THEN COLOR=ÕO: 
GOSUB 435:C = 17:B = 18 

335 R = INT (15 * RND (1)) 

IF R > 5 ANDR < 10 THEN COLOR= 






























“SEJA PILOTO OU MECÂNICO | 


DE AVIÕES 


OU HELICÓPTEROS 


e 227-7417 
e 267-9261 


RIO DE JANEIRO 


EMPAER" 





3« 








380 COLOR= 7: GOSUB 435 

385 IF SCRN( A,30) = 7 OR SCRN( 
A+ 1,31) = 7 OR SCRN( A + 
2,30) = 7 THEN 450 

390 IF E=177THENS=O 

395 IF E = 178 THENSu=2 

400 IF S = 2 THENX=õZ: VTABRZ2 
: HTAB 1: PRINT "PRIMEIRA": 

INVERSE : HTAB 20: PRINT "S 

EGUNDA": VTAB 23: NORMAL : HTAB 
12:K = K + 2: PRINT K 

405 IF S=OTHENX=ãh1: VTABRZZ 
: HTAB 1: INVERSE : PRINT "P 
RIMEIRA";: NORMAL : HTAB 20: 
: PRINT "SEGUNDA": VTAB 23: HTAB 

122K m K + 1º PRINT K;" KM" 











NEXT Ti TEXT : HOME : VTAB 1 

O: HTAB 5: PRINT *" VOCE GANH 

Ou!!": END 

415 REM DESENHA O NOSSO CARRO 

420 PLOT A,31: PLOT A,30: PLOT A 
+ 1,31: PLOT À + 2,31: PLOT 
A + 2,30 

25 RETURN 

430 REM DESENHA O CARRO ADVERSA 
RIO 

435 PLOT B,C: PLOT B,C - 1: PLOT 
B + 1,C: PLOT B + 2,C: PLOT 
B+2,C-1 

440 RETURN 

445 REM ROTINA DE FIM 

4so HOME : VTAB 21: HTAB 5: PRINT 
“VOCE PERDEU" 

455 FORM=1 TOS: COLOR=M 

460 FORN=0OTOSZ9: HLINO,39 AT 

N: NEXT N 

NEXT M 


Cláudio Leonardo Milione Dutra tem 15 anos e é aluno do Instituto Me- 
todista Bennett. Possui um Apple |! há um ano e atualmente está fazen- 
do o Curso de Formação de Programadores e Analistas de Sistemas na 
Faculdade da Cidade. 
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nasce com 64 


que dá ao CP 300 uma versatilidade incrível 
Ele pode ser utilizado com programas de 
fita cassete, da mesma maneira que com 
programas em disco. 





O único na sua faixa que já 


HNMEZIa 


na sua faixa tem tantas possibilidades de 


expansão ou desempenho igual. 
CP 300 Prológica 
Os outros não 

fazem o que ele faz, 

pelo preço que [1] 


kbytes de memória. ele cobra. a 





Filiado à ABICOMP 


* (Preço sujeito à alteração). 





AMicrodigital apresenta 


o novo TK 2000 color 


Que tal um micro de alta performance, que traz as principais características 
dos equipamentos mais sofisticados e que não exige de você um grande 
investimento inicial? E que tal um micro que cresce de acordo com as suas 

necessidades? São estas as vantagens que vão fazer do novíssimo 
TK 2000 Color um dos maiores sucessos no setor. 

Veja: ele tem 64K de memória RAM e 16K de memória ROM, teclado profissional 
tipo máquina de escrever, recebe diskette e impressora com interface já contido, 
trabalha em cores, oferece alta resolução gráfica e som. 

Peça uma demonstração. Nunca tanto foi lhe oferecido por tão pouco. 
Grande quantidade de software disponível (entre eles: diversos aplicativos 
comerciais e jogos a cores de alta resolução gráfica). 


- Eletemtudo que um 
micro deve ter IVlenos o preço. 


JMICRODIGITAL 


Caixo Postal 54088 - CEP 01000 - São Paulo - SP - Telex Nº (011) 37.008 - Mide BR 
À venda nas boas casas do ramo, lojas especializadas de fotovideo-som e grandes magazines. 
Se você não encontrar este equipamento no sua cidade ligue paro (011) 800-255-8583. 


